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PREFACE 


This manual describes RL/S (Rand  Lanquage/Systems) and the 
compiler for that language.. Tt is a complete specification of 
the syntax and semantics as processed by version 2,8 of the BL/S 
compiler. . 


The information in this manual is intended primarily for systems 
programmers who want to use the RL/S compiler. A working 
knowledge of IBM S/360 or S/370 Assembler Language is assumed. 
In addition, familiarity with a block-structured language such as 
PL/I or ALGOL would be helpful. 


The goal of the RL/S development effort has been to produce a 
system development facility that is compatible with the IBM 
language PL/S.  Incompatibilities may be present, due to our 
incomplete understanding of the PL/S language specifications. We 
hope to correct any differences as more information about PL/S 
becomes available. The assembler language code produced by the 
RL/S compiler is not identical to the code produced by the 
proprietary IBM PL/S compiler, but it is our intention that the 


| two be functionally equivalent. | 


The RL/S compiler is a proprietary product of The Rand 
Corporation. No formal relationship with IBM or any of IBM's 
products is implied or intended. IBM does not in any way 
endorse, approve, or warrant RL/S. 


Portions of this manual were developed from uncopyrighted IBM 
PL/S documentation and other  PL/S documentation in the open 
literature. However, The Rand Corporation assumes full 
responsibility for its contents. | | 


The authors are indebted to David Martin of UCLA and Franklin 


DeRemer of UCSC for providing the tools used in building the 
compiler, to Jerry Marlatt for his assistance in formulating the 
BL/S grammar, to Robert Grotz and Keith Soper for their patience 
and perseverence with early versions of the compiler, to 
Catherine Exton and Genevieve Michalski for editorial assistance, 
to our numerous friends in the programming community who provided 
information and ideas about  PL/S, and to Rod Fredrickson for 
having the faith to support the effort. 
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additional features that facilitate writing complex systems 
programs while maintaining a high degree of control over the code 
generated by the compiler. Where necessary, critical sections or 
functions not supported by RL/S may be coded by inserting 
assembler language statements directly into an RL/S program, . 


Each RL/S compilation consists of a single procedure, called an 
external procedure; additional procedures, called internal 
procedures, may be nested within the external procedure. | 
External procedures may be reentrant or non-reentrant. A 
procedure may call both internal procedures and independently 
compiled external procedures. . One or more alternate entry points 
for a procedure may be designated via ENTRY statements. - 


Names declared within a procedure are known within all other 
procedures nested within that procedure. . Unlike PL/I, RL/S does 
not permit a name to be declared in more than one procedure 
within a single compilation. | | 


The DECLARE statement in RL/S includes many of the features of 
PL/I declarations. A varied set of attributes are available for 
describing the characteristics of variables. They may he defined 
as FIXED BINARY, POINTER, CHARACTER or BIT.. | 


Variable storage may be STATIC, AUTOMATIC (for reentrant 
procedures), BASED, or passed through CALLS as parameters, | 
Boundary alignment may be specified. Variables may also be 
assigned to general-purpose registers, to fixed locations in 
Storage, or to the same storage as any other variables known in 
the same procedure, . | | 


Variables may be organized into arrays, structures, or a 
combination of both. . Each level of a structure may have a length 
and type attribute different from its components. The various 
levels, in effect, define different attributes which are applied 
to a common area of storage. | 


Initialization may be performed for variables by means of the 
INITIAL attribute. LITERALLY and CONSTANT attributes permit 
substituting literal text into programs to facilitate 
parameterization. The ALLOCATE and FREE statements facilitate 
using BASED variables in list processing applications. 
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Constants may be specified as decimal or binary numbers, or as 
strings of binary digits, hexadecimal digits, or characters,.: 
Expressions may consist of constants, variables and built-in 
functions, combined by addition, subtraction, multiplication, 
division, remainder after division, logical and, logical or, anda 
logical exclusive or. Explicit pointer expressions, which 
override the pointers specified in DECLARE statements, may be 
provided for based variables. Array variables are specified with 
expressions representing the values of subscripts. String 
variables may contain expressions designating the portion of the 
string to be considered. | 2 | | 


RL/S provides control Structures closely resembling those of 
PL/I.. One important control structure is the DO group, which has 


both iterative and non-iterative forms. A WHILE condition, 


tested at the start of the DO loop, or an UNTIL condition, tested 
upon completion of the DO loop, may also be used. EXITLOOP and 
NEXTLOOP statements provide structured ways to exit or repeat a 
DO group. ! 


A complete IF-THEN-ELSE structure is provided; IP statements may 
be nested as necessary. . Any executable statement may follow the 
THEN and ELSE keywords, including entire DO groups.. The CASE 
statement is provided for more complex conditional execution 
sequences, | | 


Subroutines are invoked using CALL statements, which exit via 
RETURN statements. The RETURN statement may provide a return 
code to the caller, and it may specify a return location other 
than the statement following the CALL. | 


In addition to these structures, conventional GOTO statements are 
permitted, 


A simple test facility is provided by the ASSERTION  statement,. 
Through the use of compiler options and control statements, 
ASSERTION statements may be treated as comments or compiled into 
tests of relational expressions. 


The GENERATE statement allows the programmer to insert assembler. 
language Statements directly into an RL/S procedure. Two 
distinct forms are provided: a short form that inserts a single 
Statement, and a long form that inserts a group of statements, 


RL/S compiles into assembler language, rather than directly into 
machine code. This permits the programmer to take full advantage 
of assembler features and macro libraries by using GENERATE 
statements. - | | 


St 
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SYNTAX C 


m: 


NYBNTIONS 


Throughout this manual, the following conventions are used to 
describe the syntax of RL/S statements and other language 
elements: | 


Upper-case letters and special characters (other than 
brackets, braces and elipses) indicate the literal 
occurrence of the characters represented. 


Lower-case letters and underscores indicate general 
classes of language elements, which are syntactically 
defined in the manual, | 


Brackets ([ ]) enclose language elements that may, 
but need not, be coded. If more than one line of text 
is enclosed by the brackets, the elements represented 
by any one line, or none, may be coded. 


Braces ( { } ) always enclose multiple lines of text. = 
The language elements represented by exactly one of the 
lines must be supplied. | 


An elipsis (...) indicates that the preceding 
language element may be repeated additional times. 


MIN ( argument [ , argument ]... ) 


The word MIN must be followed by a left parenthesis and an 
"argument." That arqument may be followed by one or more sets of 
commas and additional arguments. The entire set of arguments 
must be followed by a right parenthesis. | 


FIXED 
FIXED BINARY ! SIGNED 
{ } ( (precision) ] I 

BINARY UNSIGNED 
BINARY FIXED 


One of the phrases FIXED, FIXED BINARY, BINARY or BINARY FIXED 
must appear. The selected phrase may or may not be followed by a 
parenthesized "precision." Regardless of whether the "precision" 
appears, one of the words SIGNED or UNSIGNED may, but need not, 
be coded. 7 
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STATEMENT FORMAT 


RL/S source statements may be written in free-field format, using 
special symbols to delimit program elements, The statements may 
appear anywhere within the specified source margins, which are 
set to 2 and 72 by default. (See "Compiler Options,") 


Most RL/S statements are ended by semicolons. A statement may 
span more than one source record, or several statements may 
appear within a single record». 


Blanks may be used freely within statements except within: 
variable names or keywords 


constants other than character strings, where they are 
interpreted as part of the string 


composite symbols, such as //, 65, /*, */ or -> 


Comments may appear wherever a blank is permitted except 
immediately following the divide  operator(/). | Comments are 
enclosed by the composite symbol /* to the left and */ to the 
right. Comments may include any EBCDIC characters except the 
composite symbol 3. The characters /* should not appear in 
columns 1 and 2 because of operating system end of file 
conventions. | | | 
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Many of the keywords of RL/S may be abbreviated to facilitate 
coding... All keywords and abbreviations of RL/S are currently 
reserved. They may not be used as variable or label names. A 
complete list of the reserved words, together with their 
permissible abbreviations, if any, is shown below. 


KEYWORD  — ABBREVIATION 


ABNORMAL 
ABS — 
ADDR 
ALLOCATE 
ANNOTATE 
ASSERTION 
ASSERTIONS 
AUTOMATIC 
BASED 
BINARY 
BIT 
BOUNDARY 


CASE 
CHARACTER 
CODE | 
CONSTANT 
DECLARE 
DEFINED 


ENDGEN 
ENTRY 
EVAL 
EXITLOOP 
EXTERNAL 
FIXED 
FREE 
GENERATE 
GEN ERATED 
GLOBAL 

GO 

GOTO 
HWORD 


ALLOC 
ASSERT 
AUTO 
BIN 


BDY 


CHAR 


DCL 
DEF 


EXT 


GEN 
GEND 


IF 
INCLUDE 
INDIRECT 
INITIAL 
INTERNAL 
LABEL | 
LENGTH 
LIST 
LITERALLY 
LOCAL 


LOCATION 


MAX 

MIN 
NEXTLOOP 
NONLOCAL 
NORMAL 


OPTIONS 
POINTER 
POSITION 
PROCEDURE 
PROCESS 
REGISTER 
RESPECIFY 
RESTRICTED 
RETURN 
SET 
SIGNED 
STATIC 
SUBTITLE 


THEN 


UNRESTRICTED 
UNSIGNED 
UNTIL 
VALUERANGE 
WORD 

WHILE 


LOC 


PTR 


POS 


PROC 


REG 
RFY 
RSTD 


UNRSTD 


VALBRG 
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CONSTANTS 


Constants are used in RL/S to represent fixed quantities. Two 
distinct classes of constants are provided: arithmetic and 
string. ΝΗ 


s. 


Arithmetic Constants 

Arithmetic constants may be decimal or binary. A decimal 
constant consists of a signed or unsigned contiguous sequence of 
decimal digits whose maximum absolute value is 2147483647 
((2**31) -1). A binary constant consists of a signed or unsigned 
contiguous sequence of the digits 0 and 1 followed by the letter 
B. When the constant is converted into decimal form, its 
absolute value cannot exceed 2147483647 ((2**31)-'*),. - 


There are three types of string constants: character, bit and 
hexadecimal. 


A character constant consists of any string of EBCDIC characters 
enclosed in apostrophes or quotes, An apostrophe or quote which 
is part of a character string delimited by the same character is 
coded as two contiguous apostrophes or quotes.. 


A bit constant consists only of binary digits (0 and 1) enclosed 
in apostrophes or quotes and followed by the letter B. 


A hexadecimal constant consists of any hexadecimal digits 
(0-9,A-F) enclosed in apostrophes or quotes and followed by the 
letter X. It is a shorthand for the equivalent bit constant, ` 
For example, the hexadecimal constant 'B'X is the same as the bit 
constant 101173... | 


The maximum length of the coded representation. of a character, 

bit, or hexadecimal constant is 256 characters. The length of 

any string constant is the number of input characters, excluding 

the enclosing and doubling apostrophes or quotes. For example: 
the character constant *'O''HARA! counts as six characters; the 

bit constant '010'B counts as three characters.. | 


A string constant may be preceded by a string repetition factor, 
which indicates that the characters in the coded string are to be 
repeated the specified number of times. The string repetition 
factor consists of a numeric value enclosed in. brackets. . For 
example, [2]'TESTING' is equivalent to 'TESTINGTESTING', and 
[4]'O' X is equivalent to '0000'X. . The length of a repeated 
string constant after the string repetition factor is applied 
must be less than the maximum length of 256 characters, 
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DATA 


RL/S provides a variety of attributes for describing the 
Characteristics of data. These attributes are normally specified 
by means of a DECLARE statement. Variables not described in 
DECLARE statements are assigned default attributes by the 
compiler based on the contexts in which they are used in a 
program. | | 


Data is generally classified as arithmetic, string, pointer, 
program, or literal. Arithmetic data consists of fixed-point 
binary integers. The data may be signed or unsigned, and it may 
occupy from one to four bytes. Where necessary, the programmer 
may control its boundary (i.e., doubleword, fullword,  halfword, 
or byte alignment), 


String data is divided into two categories: Character-string 
data and  bit-string data.  Character-string data is interpreted 
as a sequence of eight-bit EBCDIC characters; bit-string data is 
interpreted as a sequence of bits. The number of characters or 
bits in a string is specified by the programmer in a DECLARE 
statement, 


Pointer data is interpreted as the address of some other data. 
The other data is then given the BASED attribute (see "The 
DECLARE Statement"). | Like arithmetic data, pointer data may 
occupy from one to four bytes, although lengths of three or four 


bytes are typical. Pointer data is always considered unsigned. ` 


The programmer may control its boundary alignment. 


Program data is interpreted as the address of an instruction, 
The compiler calculates these addresses for use in GO TO and CALL 
statements. Labels are specified by the programmer on PROCEDURE 
and ENTRY statements (for use with CALL statements), or on other 
statements (for use with GO TO statements). Unlike the other 
data types described above, program data cannot be manipulated. ` 


Literal data consists of strings of characters that the compiler 
literally substitutes for the corresponding variable names during 
compilation (a simplified macro facility)... In addition to 
providing a shorthand notation, it also enables the programmer to 
parameterize a program, uai major modifications with 
simple changes to the source. 
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Variable names may consist of up to eight charcters. The first 
character must be alphabetic ος one of the three "national" 
characters, #, $, or ð. The remaining characters may be 
alphabetic, national or numeric. Note that the character @ is 
the default character for indicating compiler control statements, 
and may cause errors when used to begin a variable name unless 
the CONCHAR option is changed (see "Compiler Options"). | 


Arithmetic, pointer and string data may be organized into arrays, 
multi-level structures, and more complex collections of arrays 
and structures.. 


The storage associated with variables, arrays and structures may 
be treated in several ways. It may be STATIC within the defining 
procedure, or it may be acquired dynamically (AUTOMATIC) when the 
external procedure is entered. It may be INTERNAL (known only to 
the defining procedure), or EXTERNAL so that other procedures may 
reference it. If EXTERNAL, the actual storage may be LOCAL to 
the procedure or NONLOCAL (in some other external procedure). ` 


Variables may also be BASED, in which case they are located via 
other POINTER variables. They may be passed as parameters 
through a CALL statement, in which case they are located via a 
parameter list. Finally, they may be assigned absolute locations 
in storage or ος to the generai-purpose registers.. 
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Variables may be qualified, where appropriate, by subscript 
and/or substring expressions, These expressions may be any valid 
arithmetic expressions, and may themselves contain subscripted 
and/or substringed variables. The value of a subscript or 
substring expression must be greater than zero and must not 
exceed the dimension or length, iESSpoctively, of the associated 
variable, 


Subscript expressions are used to reference specific elements of 
an array variable; their values indicate the position of the 
element within the array. The subscript expression(s) are _ 
enclosed in parentheses and must follow the variable name. For 
multiply-dimensioned variables there must be as many subscript 
expressions (separated by commas) as there are dimensions, | 


Examples of subscript expressions are: 


ARRAY (3) 

ARRAY {I} 

ARRAY(1*3) 

ARRAY (B->C) See "Pointer Qualification," below. | 
OTHER(ISJ, 10*K) | 


A substring expression is used to reference one or more bytes of 
a character-string variable, or one or more bits of a bit-string 
variable. For character variables, substring expressions refer 
to byte positions within the variable; for bit variables, . 
substring expressions refer to bit positions within the variable. - 


To reference one byte or bit, a single substring expression. 
enclosed in parentheses, follows the name of the string variable.. 
To reference more than one byte or bit, the positions of the 
first and last bytes (bits) in the string variable must be 
indicated. The expressions giving the first position and the 
last position are enclosed in parentheses and separated by a 
colon. A variable-length substring must not exceed the length of 
the data of which it is a portion. 


To reference a portion of a string variable that is ah element of 
an array, the substring expression is preceded by the Subscript 
expression(s), The substring and subscript expressions are 
separated by a comma. 
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Examples of substring expressions are: 


DECLARE ALPHA CHARACTER (100); 
DECLARE BETA(10) CHARACTER (10); 
DECLARE GAMMA (5,2) CHARACTER(10) ; 
DECLARE DELTA(5) BIT(32); 


ALPHA (3) | The 3rd byte of ALPHA 

ALPHA(I+3) | The (I*3)rd byte of ALPHA 

ALPHA(2:0) | | The 2nd thru 4th bytes of ALPHA 

BETA (7 ,2) The 2nd byte of BETA(7) 

BETA (143,9) The 9th byte of BETA(I*3) 

GAMMA(3,2,4) Phe 4th byte of GAMMA (3,2) | 
GAMMA (U,L,3zM) The 3rd thru Mth bytes of GAMMA(4,1L) | 
DELTA(2,1:8) Ἢ The 1st thru 8th bits of DELTA (2) 

DELTA (I, J#22K) The (J*2)th thru Kth bits of DELTA(I) 


Variables declared with the BASED attribute (see "The DECLARE 
Statement") may be explicitly qualified by a pointer variable 
when referenced. An explicit pointer qualification consists of a 
pointer variable name followed by the composite symbol -> and 
followed in turn by the name of the BASED variable. The value of 
the pointer variable is used to locate the BASED variable in 
storage. (Any pointer variable given in the declaration for the 
BASED variable is ignored.) ΤΕ the pointer variable is BASED, it 
too may be explicitly pointer-qualified and/or subscripted. 


The POSITION specified when the BASED variable is declared is not 
overridden by explicit POINTER notation. The relative position. 
is used with the specified POINTER value. | 


When pointer notation is used with a component of a BASED 
structure, the pointer is treated as if it were pointing to the 
beginning of the structure. The location of the component is 
determined by combining its offset from the beginning of the 
structure with the pointer value. This does not change the value 
of the pointer. | - 


Examples of explicit pointer qualification are: 


DECLARE A BASED; 

DECLARE B POINTER BASED (E); 
DECLARE C POINTER; 

DECLARE D(10) POINTER; 


X=B-DA; 
Y=C->B->A;3 
Z=D {I} “ολ; 
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Referencing Variables 


in a program containing only a single procedure, all variables 
declared in the procedure may be referenced in the procedure. 
Normally, these variables cannot be referenced by any other 
external procedure. To enable another external procedure to 
reference one of these variables, one of the following must be 
dones 


Declare the variable as EXTERNAL in both procedures 
and NONLOCAL in one of them, : 


Declare the variables as GLOBAL in both procedures. 


Redesign the program so that one of the external 
procedures becomes an internal procedure of the other. 


Pass the variable as an argument on a CALL statement. 
(Refer to "The CALL Statement" for details on how to 
pass ΠΕΘΕΡΟ 


If a variable is declared vith the EXTERNAL or GLOBAL attribute 
in two external procedures, it may be referenced in either 
procedure. (If EXTERNAL or GLOBAL is not specified, the compiler 
assumes that two different variables are being declared.) Since 
an EXTERNAL variable should be assigned storage only once, the 
compiler must be instructed in which procedure this space should 
be allocated.: The LOCAL attribute indicates that storage for a 
variable should be assigned in the current procedure, while the 
NONLOCAL attribute indicates that storage for a variable will be 
assigned in another (external) procedure, The linkage editor 
automatically ensures that a GLOBAL variable is assigned storage 
only once., | | 

Nested Procedures 

Any variable that is declared or used in a procedure may be 
referenced by any procedures internal to it. Once a variable is 
declared, it must not be declared again; once a variable is used, 
it must not be declared in any procedure internal to the one in 
which it is used. The diagram below illustrates which variables 
may be referenced by a procedure, 
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Referencing Variables in Nested Procedures 


A: PROC; 
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Procedure A can reference only those variables declared or 
used in procedure A. - 


Procedure B can reference any variables declared or used in 
procedures A or B.. 


Procedure C can reference any variables declared or used in 
procedures A, Bor c. | 


Procedure D can reference any variables declared or used in 
procedures A, Bor D. | 


Procedure E can reference any variables declared or used in 
procedures A or E. ᾽ | 
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STATEMENT LABELS 
Statement labels are used to name particular statements in an 
RL/S program. Each label consists of an unqualified, 
unsubscripted name, followed by a colon. The name may also be 
declared with the LABEL attribute. If it is not declared, it 
will be given the LABEL attribute by default. One or more labels 
may precede all statements except PROCEDURE or ENTRY statements. _ 


Labels may also appear after the words THEN and ELSE in IF 
statements. Labels used in this way identify the code that is 
generated if the relational expression is true or false, 
respectively. | | | 


PROCEDURE and ENTRY statements allow exactly one label, which is 
interpreted as the name of the entry point. These labels may be 
declared with the ENTRY attribute. If they are not ο ο κά. 
they will be given the ENTRY attribute by default. 


Some examples of statement labels are: 


MYPROC: PROCEDURE; 
HERE: THERE: X-2; 
LABELI: ; 

LABEL2: LABEL3:;; 
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Arithmetic expressions represent quantities to be computed by the 
program. These expressions are used in many places in the 
language: on the right-hand side of assignment statements, as 
subscripts of arrays, in arguments of CALL statements, etc. 


An arithmetic expression consists of one or more operands, 
connected by operators that indicate the operations to be 
performed on the operands. Parentheses may also be used to 
specify explicitly the order of ΡΕΦΡΕΝ; 


 Operands 


Expression operands may be variables, constants, or built-in 
functions. Variables may be FIXED BINARY, POINTER, CHARACTER, or 
BIT. If a variable describes an element of an array, it will 
include a subscript expression; if a portion of a character or 
bit string is being described, the variable will include a 
Substring expression; if a variable is BASED, it may be 
explicitly pointer-qualified.. 


ators 


The operators that may be used in an expression are: 


2 Operator n Operation | Priority | Associated Γ 
| Γ Sq | Data Type EE 
ας αμα ών αμα, NES Ee ΙΓ MM. D 
| * | Prefix plus | 1 |^ Arithmetic 2E 
d = | Prefix minus 4 | 1 | Arithmetic b 
i ^ | Negation EN 1 |- Bit | po 
Γ΄ * | Multiplication | 2 | Arithmetic. t 
| 7 | Division t 2 | Arithmetic D E 
i // | Remainder (pe 2 |- Arithmetic. i 
l * | Addition b 3 | Arithmetic. to 
I > | Subtraction E 3 | Arithmetic. E 
! 5 | And dc 4 |- Bit B 
| | | Inclusive or ||- 5 | Bit t 
| S5 | Exclusive or E 6 E Bit zx 
Γ᾽. c iu i. -=== 
| NOTE: Pointer, subscripted and substringed expressions, t- 
d and built-in functions are evaluated before any of to 
| the above Operators: | are applied, b 
ο ο ο ο ο ο τν ο ντα ον ο ον ο. ---Ὁ- μας a 
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In complex expressions, the order of associating operands with 
operators is determined by the priority of each operator. The 
operands connected by the highest priority operator (lowest 
number) are associated first; the operands connected by the 
second highest priority operator are associated next, and so on, 


When consecutive operators of priority 1 appear in an expression, 
their operands are associated from right to left. When. 
consecutive operators of the same priority, other than priority 
1, appear in an EXPIOSSEOn, their operands are associated from 
left to right. 


Parentheses may be used to specify explicitly the order for 
associating operands with operators. Operators and operands 
enclosed in parentheses are associated first: expressions 
contained in parentheses are evaluated according to the rules 
given for general expressions. For example, 


Az2*(3*4); assigns 14 to A 
B=2 *3+ 4; assigns 10 to B 


Operations Performed 


Evaluating an expression involves either register operations or 
storage-to-storage operations. Register operations are performed 
by evaluating the source expression in a genéral-purpose 
register. Storage-to-storage operations are performed using only 
BU a a aaS and storage~immediate operations (e.g., NC, 
OT). | 


The type of operations performed depends on the types of 
variables and operators appearing in. the expression. 
Storage-to-storage operations will be performed only if all of 
the following conditions are satisfied: 


All variables in the expression are of type BIT or 
CHARACTER. (If the expression is the righthand side of 
an assignment statement, then the receiver must also be 
of type BIT or CHARACTER. 566 The Assignment Statement 
for a description of source expressions and receivers.) 


All constants in the expression are string constants 
(Character, hexadecimal, or bit). 


All operators in the expression are string operators 
(5, |}, or 58). . | 


If any one of these conditions is not satisfied, register 
operations are performed. (Note that the appearance of FIXED or 
POINTER variables, arithmetic constants, or arithmetic operators 
within a subscript or pointer expression does not affect the type 
of operations performed.) | 
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A register operation resulting in a fullword arithmetic value is 
always performed when the operator is one of the following: 


+- * Y // 


Before a reqister operation can be performed, the operands must 
be given the same precision. This is accomplished by extending 
the shorter value on the left with the sign (if signed), or zeros 
(if unsigned). The result is unsigned if either operand is 
unsigned; otherwise, the Eesukt is signed.: 


A string item of one, two, three, or four prts may be used in a 
register operation. The string item is considered an unsigned 
value of precision 8, 16, 24, or 32, respectively. Bit strings 
that are not  eight-bit multiples aligned ona byte boundary 
cannot be used in register operations. 


The following are normally storage-to-storage operators: 
& | 55 


A storage-to-storage operation is performed only when neither 
operand is arithmetic; otherwise, a logical register operation is 
performed. (Note that POINTER data is considered arithmetic.) 
Both operands must be multiples of eight bits, aligned on byte 
boundaries, and have the same length, which cannot exceed 256 
bytes; if lengths are unequal, the result is unpredictable. The 
result of a storage-to-storage operation is a bit string whose 
length is determined by the bit-length of the operands. 
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Relational expressions are used in IF statements and in the WHILE 
or UNTIL clause of DO statements to determine the flow of control 
during program execution. | 


BD Format: ας ο TORTE ών. 


tI tf 3 | | joes. 


1" 

| 

1. 

{ 

MEN comparison δ comparison 
l | 

|. [^ ] ( relexpr ) ο | [^] ( relexpr ) 
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operand Any constant, variable or expression. 


Comparator Any comparison, operator; as nerina DELO 


| 
| 
pe 
| 
! 
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| 
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a 
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Relational expressions must always be written as comparisons. 
The compiler does not reduce a relational expression to a single 
boolean value, but instead uses the condition code resulting from 
the comparison to determine the effect of the relational 
expression. ` E i | | 


"μιν. 
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The comparison operator (comparator) appearing between two. 
operands in a comparison determines how the operands are 
compared. The Γον ο τα τών. are: 


ουσια, υμών ————- — — 


| ο ο | Meaning 


| 


> greater than 

ς |. less than 

~> not greater than 
ag not less than 

- equal to 

a= not egual to 

>= greater than or equal to 
ex inc χει. οτ i nh to 


panpan amun shia likin AR ERN sn ae aen mee wS diii ndm UR ol ABI digs esa: eau ls aoa p— 


Operations Performed 


A register comparison is performed if either operand is FIXED or 
POINTER, If either operand is unsigned, the comparison is a 
logical operation. | 


A storage-to-storage comparison is performed if neither operand 
is FIXED or POINTER. Both operands must have the same length. Ἢ 
String operands that are eight-bit multiples on a byte boundary 
are limited to 256 bytes; all other bit strings are limited to 32 
bytes, and may only be compared (for "equal" or "not equal") to 
bit-string constants of equal length. 
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The relational connectors "and" (5) and "or" (|) allow more than 
one comparison in a relational expression. 


If the connector is δ. the relation on the left of the connector 
is tested. If the left relation is true, the relation on the 
right determines whether the conjunction is true or false. If 
the left relation is false, the conjunction is false, and the 
right comparison is not performed. 


If the connector is |, the relation on the left of the connector 
is tested. ΙΕ the left relation is false, the right relation 
determines whether the disjunction is true or false. If the left 
relation is true, the disjunction is true, and the right 
comparison is not performed, | | 


Using a "not" sign (4) in a relational expression reverses the 
result at the point in which it appears. For example, -(A»B) is 
equivalent to A«-B.. 


Restrictions 


Any expression that contains the "and" (6) or "or" (1|) operator 
and that is used in a relational expression must be enclosed in 
parentheses; otherwise, the operator is interpreted as a 
relational connector. For example: | | 


IF (ASB)*2-5 THEN ... 
| A is "anded" with B; 2 is added to the result. 


IF {A&B+2)=S THEN κα... | 
B*2 is evaluated first; the result is "anded" 
with A. In this case, parentheses are used only 
because the "and" operator appears in the 
expression. o EE | | 


IF (A&B)=C | D=(E{F) THEN ... mE 
The & and last | are treated as operators; the 
first | is treated as a relational connector. `| 


Neon 


4 
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BUILT-IN FUNCTIONS 


RL/S provides a number of built-in functions to augment the 
arithmetic operators. Certain of these functions, namely DIM, 
LENGTH, ADDR and EVAL, are evaluated by the compiler during 
compilation. The others, ABS, MAX and MIN, produce code that 
causes evaluation during execution of the program, — | 


DIM Built-in Function 


The DIM function is used to obtain the size of a dimension or the 
number of elements of an array. 


b ο Format: DIN Function 


| 

! 
: "T T 3 
| u DIM ( arraynane E , dimension 1}. E 
$ ET 1 


AWO IPHONE AUD tU "m apio UD ntt ARE sss lid Geis sui slg cat ae Á sn a c-Si a cic i csi ας ce ii eit eh gs 


If a dimension is not stated, DIM yields the total number of 
elements in the array. Tf a dimension is stated, it yields the 
dimension of the corresponding subscript. For example: 


DECLARE ABRAY(2,3,7) FIXED; 
DIM(ARRAY) yields 42 
DIM(ARRAY,3) yields 7 


The array name cannot be subscripted, substringed, or explicitly 
pointer-qualified. DIM may appear wherever a decimal or binary 
constant is allowed, but in some cases may only be used in 


Statements following the statement in which the array is 


declared. 
Some examples of the DIM built-in function are: 


DECLARE ARX(DIM(ARRAY)) BASED(ADDR(ARRAY)); 
DECLARE C(4) CHARACTER (DIM (DC7)) ; 

F=4*DIM (TARY) 3 

DO I=1 TO DIM(A); 


Restrictions. DIM may not be used to obtain the size of an 


indeterminate dimension of an array, nor to obtain the number of 
elements of an array which has an indeterminate dimension. 
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LENGTH Built-in -Function 

The LENGTH function is used to obtain the length of a variable or 
constant. The songea is or in bytes or bits, depending on the 
type of data. 


ΓΗΣ Format: LENGTH FURCELOR 


ων ——— ale ακουω ο VEND. ARBORE png AMBAE ARR ANNÉE: AP ae sia dide MED Uii i aci "P egit am QUE AME: 


LENGTH  ( { arithmetic constant } ) 
ο... 


' 
! 
i. 
i 
{ string constant 
| 
b 
i. 


The value returned by the LENGTH function depends on the type of 
argument that is provided, as shown below. 


T 


ΕΤΕ ree Result . 


b 
c. 


mm NE sali SUM τσ amino du 


— — 


 Character-string 
constant 


Number of bytes in 
the string 


|. 
DERE, ον 
{ 
l 
| 
| 
bit-string constant | Number of bits in 
{ the string 
| 
{ 
| 
! 
i 
] 
{ 
l1 


arithmetic constant ü 


The number of bits 
in the variable 


| bit-string variable 


all other variables The number of bytes 


in AP ariapie 


M 


For dimensioned variables, the LENGTH function 
returns the length of a single element of the 
| ο not τ cue bod of the Rogie ke B 


|. 


The LENGTH function may appear wherever a decimal or binary 
constant is allowed, but in some cases may only be used to 
reference a variable in statements following the statement in 
which the variable is declared,. 
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Some examples of LENGTH used with a string constant are: 


DECLARE BUF CHARACTER (LENGTH(*SOME MESSAGE')) 
| INITIAL('SOME MESSAGE'); 
BUF is declared CHARACTER(12). . 


C80 (1: LENGTH (20: * HARA*) ) 5101 *HABA'; 


The string O'HARA?! is assigned to the first six 
bytes of C80. . 


An example of LENGTH used with an arithmetic constant is: 


DECLARE B BIT(LENGTH(432)); 
B is declared PETS 


Some examples of LENGTH used with a variable name are: 


DECLARE ARRAY(10) CHARACTER (6); 
CTR=LENGTH (ARBAY)) 3 
CTR is assigned a value of 6. 


DECLARE B BIT (8); . 
FIX=4* LENGTH (B); | 
FIX is assigned a value of 16. 


Restrictions. LENGTH may not be used to obtain the length of a 
variable which has indeterminate length. 
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The ADDR function is used to obtain the address of a variable or 
constant. . 


να τμ Porma ts, ADDR Function 


— ο 
ADDR ( { | ) ) 
constant | 


If a variable name appears as the argument, it must not have the 
REGISTER attribute, but may be pointer-qualified, subscripted, or 
substringed. If ADDR appears as part of the INITIAL attribute, 
its argument must be an unsubscripted STATIC variable name. The 
variable cannot be a bit string unless it is on a byte boundary. . 
Otherwise, a warning message is issued and the byte address is 
used, | 


When the compiler encounters the ADDR keyword followed by a 
constant, the constant is assigned storage in the STATIC data 


area. This constant should not be Vid LLL Some examples of 


the ADDR built-in function are: | 


DECLARE CARD BASED{ADDR(BUFF)); 
DECLARE POINT POINTER(31) INITIAL (ADDR (BUFF)); 
X=ADDR (25) ; | 
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The EVAL function yields the value of the expression | specified as 
its argument. The only effect of this function is to prevent the 
compiler from combining elements of the argument expression with 
other elements of the expression containing the EVAL function, 
until all elements of the argument expression have been combined. | 
EVAL may appear in any ΗΠ 


anes ἘΝ VAS st dais 


ae 6 ο ο Ἡ ) 


grecum ie as se eae CE RU TN NIOUN UE IPIE: — À ολ 


μμ MID OD D MA RD ARA AND E CO c 


The compiler decomposes each expression into functional units, 
consisting of an operator and its operands. During compiler 
processing, units are arranged according to the priority of the 

operators and their data types. Parentheses may be used to group 
items of an expression to make the meaning of the expression more 
evident: however, the order of evaluation of these units is not 
always affected by parentheses. The function of EVAL is to force 
the isolated evaluation of a specified unit. 


In most cases, the order of evaluation given in the rules for 
operators and data types is acceptable. However, if there is a 
possibility of overflow, it is important to specify a particular 
evaluation order. 


For example, given the statement 
A= (B-C) + (D- E) ; 


where all variables are arithmetic, and all operators are of the 
same priority, the compiler may perform the operations in several 
different orders, Some possible evaluation orders are: 


(B-C) * (D-E) 
(B*D)- (C*E) 
((B-C) +D) -E 


Logically, all of these examples are equivalent. However, a 
possible overflow may be avoided if a particular order of 
evaluation is specified. The EVAL function guarantees that the 
compiler will evaluate an expression in the specified order, even 
though there are equivalent alternatives. 
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In the statement, 
A-EVAL (B-C) * (D-E) ; 
the compiler recognizes that it must evaluate {B-C} as indicated.. 


EVAL is useful in CALL statements to avoid passing the actual 
address of an argument to the called procedure. This eliminates 
the possibility of the called procedure altering the value of its 
parameter, thus changing the value of the argument. 


In the statement, 
CALL X (EVAL(3)) ; 


the EVAL function causes the compiler to move the constant 3 to a 
temporary location, and the address of the temporary location to 
be passed to procedure X. A change to the corresponding 
parameter will affect only the temporary variable; the value of 
the constant itself will not be altered., ! 
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ABS Built-in Function 
The ABS function is used to obtain the absolute value of a 


uu or expression. ABS may appear in any expression and 
yields a FIXED BINARY (31) value with a positive sign.. 


I Fenere. Format: Anm ο οι» E 
E τι 
| ABS . expression a 1 


The following examples show possible uses of the ABS built-in 
function: 


Y-ABS(T) «10: 

DO I-1 TO ABS(A-B); 

X=ABS (ABS (A-B) -ABS (C/D) ) ; 
IF X-ABS(C*12) THEN ... 
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The MAX function is used to find the maximum arithmetic value in 
a group of expressions that are specified as arguments. MAX 
yields a value equal to the argument with the largest value.: 


bates Formats MAX function: 


Jub SERA AE ddl dius AU App E NN —————————————————————————— 


MAX ( δ us E ο... T riis 


The argument list should consist of two or more expressions, 
separated by commas. If a single argument is specified, the MAX 
function yields the value of that argument. — | 


The following are examples of the MAX built-in function: 


A=MAX (B,C) 5 
The larger of the two arguments, B or C, is 
assed to A.. 


IF MAX (A, B*3 7C)=Y THEN ...- 
The largest of the three arguments is —: 


with τα” 
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The MIN function is used to find the minimum arithmetic value in 
a group of expressions that are specified as arguments. MIN 
yields a value equal to the argument with the smallest value.. 


General Formats. MIN Benetton 


seems ein tents MAD UI IUD) eet sitesi sie ws si ce a ώς — “αν ο κ κο ο ών esate Mm stan UID ANIM BOUM pi qo AUR ipM MARI SQ QUUD URN seen: MUERE i 


| 
| 
" 
| 
i 
a 


MIN C Ν᾽ [ , argument PILAM 


"—— κάδο avi. VUE zumo HERR. —————— REBEL ών. AB AMD QUO AUD HIN SFO HIM SIN UN. x 


The argument list should consist of two or more expressions, 
separated by commas. If a single argument is specified, the MIN 
function yields the value of that argument, . 


The following are examples of the MIN function: 
IF MIN(A,B*C,D)-LOWEST THEN ... 
The argument with the smallest value is compared 
with LOWEST. | 


Z-MIN (MAX (A,B) ,C) ; | 
Z is assigned the smaller of the two arguments, ` 
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Certain registers are assigned specific functions by the 
compiler, and generally are not available for use by the 
programmer. When not being used for their preassigned function, 


these registers, together will all other unrestricted registers, 


are used by the compiler as necessary for arithmetic 
calculations, indexing, external data addressing, and pointer 
manipulation, The preassigned functions are shown in the table 
below, 


B , d πώ |. 
7 7 i 
i ο | Used in the prologue and epilogue code p 
| | } for reentrant procedures. ` E 
| [ m 
| 1 | Contains the address of the parameter E 
l | list when arguments are passed to the PF 
l | called procedure. Used in the prologue E 
| { and epilogue code for reentrant { - 
j | procedures; restored to its original t- 
! | value after use in the proloque.- T 
| ! 0» 
| Some register | Used as a base register for πμ M 
| that is never | code unless the CODEREG is specified. E 
| restricted .. E 
B E 
| Some register | Used as a base register for addressing to 
| that is never | data in a reentrant environment unless b 
| restricted E the DATAREG option is specified. E 
| 13 l Used by the standard register save E 
| | mechanism. Contains the address of the 1|. 
! | calling procedure's save area,- Ez 
| | - 
| 14 | Contains the return address in the E 
i | calling procedure. | T 
| | .. 
| 15 | Contains the entry point address in the Į- 
{ | called Ἵν νον E 
ο -ᾱ-Ὃ.ὄ.-ᾱ-.--- [-..» εν "μος i s jus ο η, ο... { p 
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The compiler's use of all other registers is governed by the 
following rules: 


When a PROCEDURE statement is encountered, all current 
register restrictions are saved and all registers are 
marked available (within the limitations of the 
standard compiler-assigned. register functions). 


When a register variable is declared RESTRICTED or 
Changed to RESTRICTED with a RESPECIFY statement, the 
register associated with the register variable is 
marked unavailable for use by the compiler. . 


When a register variable is changed to UNRESTRICTED 
with a  RESPECIFY statement, the register associated 
with the register variable is marked available for use 
by the compiler, unless it has also been restricted 
under another register variable name. A restricted 
register will be made available for use by the 
compiler only when all register variable names for 
which it was restricted are specified as unrestricted. 


When a procedure END statement is encountered, all 
register restrictions are restored to the state that 
prevailed when the corresponding PROCEDURE statement 
was encountered. 
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THE DECLARE STATEMENT 


The DECLARE statement is used to assign specific data attributes 
to variables in a program. Not all variables need to be 
declared; if a variable is undeclared, default attributes are 
assigned, based on the contexts in which the variable is used. | 
(Default attributes and recognized program contexts are listed in 
Appendix A.) 


acne ‘Format: piri nid οσους. 


ana amum eim ο IIED- SUEED TIU Αλ. «λ ολ... 


1 


"QUIS ERLE RIE MS STEED to Me sien sani 


| DECLARE prevesg name is T rsen ος ἑν E [otte potos]: 


‘si ie sa AOAR AAA seme ens — ——————————— te: Tene RON 


L^ 


— —— «ἃ 


level Number between. 1 and 32767 that defines the 
hierarchy of a variable within a structure. 


name Name of the variable whose attributes are 
being defined. 


dimensions One or more numerical values, separated by 
commas, that define the number of elements.. 


attributes See Eod 


——— ER TO ibis ol iss soa cae UMEN straw ili ei ca is casa eis ae odi i κοκ. AUI ANDR ect na: stan μπουν 


Multiple variables may be declared in a single declaration. Tf 
more than one variable is being declared in the same DECLARE 
statement, each declaration is separated by a comma. For 
example: 


DECLARE PT3 POINTER (31), 
AREA CHARACTER(12), COUNT FIXED(15); 


Attributes that are common to several variables may be factored 
to eliminate repeated specification by placing the variable names 
in parentheses, separated by commas. Those attributes that the 
variables have in common are listed following the right 
parenthesis. For example: 


DECLARE (FLAGA, FLAGB) BIT (1); 
DECLARE (B BIT(8), C CHARACTER(20)) EXTERNAL: 
B is declared as BIT(8) and EXTERNAL. : 
C is declared as CHARACTER(20) and EXTERNAL. - 
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d Factored partial declarations may themselves be factored. For 
example: 
DECLARE (LV FIXED(15), (SB BIT (1), SC CHARACTER (16)) 
EXTERNAL) LOCAL; 
LV is declared as FIXED(15) and LOCAL. | 
SB is declared as BIT(1), EXTERNAL, and LOCAL. | 
SC is declared as CHARACTER(16), EXTERNAL, and LOCAL. - 
When declaring a structure, the level number may be factored to 
the left of the factoring parenthesis. For example, the 
following declarations are legal: 
DECLARE 1 X BASED(APTR), 
2 (Y1,Y2,Y3) FIXED; 
DECLARE 1A, 
(2 (B,C,D) FIXED(15), 
2 E FIXED, 
3 (F,G) FIXED (15)) INITIAL (0) ; 
B, C, D, E, F and G are initialized to 0 in the 
above example., 
Defaults nd restrictions for the DECLARE statement are discussed 
in this section under the various classes of attributes. 
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Data attributes are divided into several classes. Generally,- 
only one attribute may be selected from each class; exceptions 
are noted in the descriptions of specific attributes that follow. 
It should be noted, however, that not all combinations of these 
attributes are legal. (The incompatible combinations are shown 
in Appendix A.) The classes and the associated attributes are: 


PIXED BINARY STATIC Scalar 
SIGNED INTERNAL | Array 
UNSIGNED EXTERNAL Structure 

CHARACTER LOCAL 

BIT NONLOCAL 

POINTER INDIRECT Miscellaneous 

LABEL GLOBAL | 

ENTRY AUTOMATIC BOUNDARY 
OPTIONS REGISTER BYTE 

LITERALLY RESTRICTED HWORD 

CONSTANT UNRESTRICTED WORD 

BASED DWORD 
POSITION INITIAL 

DEFINED NORMAL 

POSITION ABNORMAL 

LOCATION | VALUERANGE 

GENERATED 

Parameter 
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There are four types of variable data: FIXED BINARY, CHARACTER, 
BIT and POINTER. In addition, there are two types of program 
data, LABEL and ENTRY, and two types of literal data, LITERALLY 
and CONSTANT. | 


The attributes selected when declaring the data type determine 
how the bit configuration of a variable is interpreted.: If no 
attribute is specified, the data is assigned a default of FIXED 
BINARY(31).: 


"m — i " : "s τν ~ 
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The only arithmetic data type is FIXED BINARY, which is 
interpreted as binary fixed-point integer. This attribute may be 
coded as PIXED, BINARY, FIXED BINARY or BINARY FIXED. A 
parenthesized integer representing the precision may optionally 
appear following either word, but not both. The data may be 
agen: ted as ' ας or ών 


bais Formate Foren BINARI AEETI BULs 


FIXED | 
FIXED BINARY | SIGNED 
( | } [ ( precision ) ] [ 
BINARY | | UNSIGNED 
BINARY FIXED 
Ere ο ο... vane ΕΡΕ Proc Sron: in bits. : 


The number of bits ——" represent the maximum positive 


value of the arithmetic data. (An additional bit is assigned as 
a sign bit; for a negative value, the total field represents a 


value in two's complement form.) The precision specified 


determines how many Bytes are assigned to contain the data, as 
iilustrated below: 


| ze 
j Precision 7 Number of z Boundary Alignment b 
B | Bytes Assigned Fe { 
Ὁ - mM m uu LI uu eee E S ee eM | 
| | | | 5 
E 8 E 1 1 byte | E 
E: 15 i 2 | halfword EE 
| 16 = ac 2 | halfword | 
| 24 i 3 | second byte of word | 
| 31 i 4 i fuliword E 
| 32. | ἡ fullword i 
|------------------------------------------------------- 


Defaults. If a precision is not specified, the default precision 


is 31. If the BOUNDARY attribute is not specified, the boundary 


alignment for a FIXED BINARY variable is as shown in the above 
table, . | 


Restrictions. A FIXED BINARY variable of precision 8, 16, 24, or 


32 will always be treated as unsigned data. A FIXED BINARY 
variable of precision 15 or 31 will always be treated as SIGNED 
data. 
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CHARACTER data is interpreted as a sequence Of eight-bit EBCDIC 
characters,. | | 


baies ο Ore CHABACTER Attribute | 


FE QU. EE AND TREND. ος BE 


| 
ή 


— Pe — 


| " 


CHARACTER =» ( length) Ἢ 


—— M IB 


length Number of characters in a string, not to exceed 
oec 


pm———— €—€——— Nits NIA niue etre aim oO. μακρών ποπ μνκρνων . 


If the length is indeterminate (as for parameters or based 
strings), an asterisk {(*) may be specified. In this case, a 
substring expression is required when referencing the data. 
Character data may also be declared with a length of 0. This is 
often useful in aligning portions of a structure. For example, 
in the following declaration all of the declared variables will 
be aligned to the beginning of the structure: | 


DECLARE 1 X CHARACTER (20) BOUNDARY (WORD) , 
2 TYPE1 CHARACTER(0), τ 
3 Y1(5) FIXED BINARY(31), 
2 TYPE2 CHARACTER (0), . 
3 12 (5) CHARACTER (4) ; 


Defaults. If the BOUNDARY attribute is not — n" when the 
data is declared, the data is aligned on a byte ΤΕΙ 


Restrictions. CHARACTER data may be used in register operations 
only if it is one, two, three, or four bytes in length. 
CHARACTER data assigned a value in an assignment statement or 
used in an expression cannot be longer than 256 bytes.. 
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Bit-string data is interpreted as a sequence of contiguous bits. 


] E 
I ο Format: E n fe 
| | E 
| BIT ( length ) b 
Ὁ Ὁ E N ο. -------- ο IE NC ORE e ΕΞ 
E length Number of bits in a ATINGE not to Ἔχε ο. t 
qj a ο νο aaa i ον ον ER OE DELE. | 


If the length is indeterminate (as for parameters or based 
strings), an asterisk {(*) may be specified. In this case, a 
substring expression is required when referencing the data. 


Defaults. If the BOUNDARY attribute is not specified when the 
data is declared, the data is aligned on a byte boundary unless 
the data appears in a structure and is neither dimensioned nor 
initialized. Uninitialized,  undimensioned bit-string data in 


structures is aligned on a bit boundary. . 


Restrictions.  Bit-string data may be used in register operations 
only i if it is an eight-bit multiple aligned on a byte boundary 
and does not exceed four bytes in length.  Bit-string data that 
is assigned a value other than a bit-string constant or is used 
in an expression must be an eight-bit multiple aligned on a byte 
boundary and cannot exceed 256 bytes.  Bit-string data that is 
not an eight-bit multiple or not aligned on a byte boundary can 
only be assigned or compared to a bit-string constant and cannot 
exceed 256 bits. 
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OIN NTER Data 


POINTER data is interpreted as the address of some other 
variable, The name declared for this other variable should have 
the BASED attribute. (For a discussion of the BASED attribute 
see "Storage Attributes" in the description of the DECLARE 
Statement). POINTER data is always non-negative (unsigned) and 
may be used in arithmetic operations.. 


Ge neral Format: POINTER Attribute. 


SOCIO APE QURE. CRIN RIED ην SRI: «μυ. JUN UD se HU HUE CU TUI OE UM P UAR AUR QUI UI ms AN RU IS RE αμα 


inn dub qua cius ait bun MUN ahaa 


POINTER — [ ( precision) ] . 


precision Optional value ΗΠ ' ARADN in terms 
of bits. 


m UR PUR MO Peto ΕΕ ΤΘ; PANED lg ORE ARE INO IAP RC RIN hee ο μαμα. 


The number of bits assigned should represent the maximum positive 
value of the pointer address. The precision specified determines 
how many bytes are assigned to contain the address, as 
illustrated below: 


Number of 
E ii ΤΕ. 


Precision Boundary Alignment 


--- m——Á p-— μμ μα σκοπών μα 


EE 

Ób- 

ti 

| 

| byte 

|  halfword 
|| halfword 

| | second byte of word 
| fullword 
| ΘΕΣ 
1; 


w 
oe a cr eee 


E 
E 
A 
p 
15 b 

1 
| 

| 

| 

K 


ame dui Sq NUS DU GE oi ών ος ων co dors ος eae ο ο ὧν BU AUI I staat 


Defaults. If a precision is not specified, the default precision 


is 24. If the BOUNDARY attribute is not specified, the boundary 
alignment for a pointer variable is as shown in the table above. 


 Bestrictions. Precisions of 15 and 31 cause the high-order bit 


to be considered a sign, which must always be 0. 
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A variable may be identified as a label in a DECLARE statement by 
specifying the LABEL attribute. The declared variable should 
also appear as the label of some statement other than a PROCEDURE 
or ENTRY statement. A label may also be declared with the BASED, 
EXTERNAL or GENERATED attribute, in which case it cannot appear 
as a label of any RL/S statement. LABEL data is not assigned 
real storage, but is only used by the compiler to locate the 
object of GO TO and RETURN TO statements. Consistent with this 
definition, LABEL data may not be used as parameters or used in 
any Other context that demands real storage.. 


Defaults. A variable defaults to LABEL in the following two 
cases: 1) when a reference to the variable is the designation on 
a GOTO or RETURN TO statement, and 2) when the variable appears 
as a label on any statement except a PROCEDURE or ENTRY 
statement. . | | 


Restrictions. LABEL data is always aligned on a  halfword 
boundary. The BOUNDARY attribute cannot be used to change the 
boundary alignment. 


D 
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A variable may be identified as an entry name in. a DECLARE 
Statement by specifying the ENTRY attribute. The declared 
variable should also appear in the label of some PROCEDURE or 
ENTRY statement. An entry name may also be declared with the 
BASED attribute, in which case it cannot appear as a label of any 


Statement, . 
used by the compiler to locate the object of CALL statements. . 


| Consistent with this definition, ENTBY data variables may not be 


used as parameters or used in any other context that demands real 
storage, 


Defaults. A variable defaults to ENTRY in the following two 


REELED SRD: seta SPERE 


cases: 1) when a reference to the variable is the destination of 
a CALL statement, and 2) when the variable appears as a label on. 
a PROCEDURE or ENTRY statement, 


Restrictions. ENTRY data is always aligned on a halfword 


boundary. The BOUNDARY attribute cannot be used to change the 
boundary alignment, | 


The OPTIONS attribute may follow the word ENTRY in a DECLARE 
statement. The allowable options are EXIT,  NOEXIT, FLOWS, 
NOFLOWS,  SEQFLOW, NOSEQFLOW, SETS,  NOSETS, REFS, NOREFS, and 
VLIST. Only the VLIST option, which indicates that the ENTRY 
variable will accept a varying number of arguments, affects the 
generated code. This condition is signaled during execution by 
turning on the high-order bit of the last argument of a CALL to 
this entry name. The option is specified as shown in the 


following example: | 


DECLARE SUBRUTIN ENTRY OPTIONS (VLIST);_ 


The other options are parsed (to provide compatibility with IBM's 
PL/S), but are otherwise gale 


ENTRY data is not assigned real storage, but is only 
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Literal data is defined as a string of characters used in the 


replacement of source text. This attribute is especially useful _ 


for abbreviating constants and expressions in the source listing.. 


General Format: UE ADEE ο ο 


| 
i 
πι. Τι. 
| 
i 


‘act sii esa μαμα m— πμ σνακ 


ο... ον ο... 


P. si i ik oM si ci oa tien —————————————— sin ain ών IC PU 


Any variable declared with the LITERALLY attribute will be 
replaced in the source statement (but not in the source listing) 


d 
-t 


by the declared character string. This type of variable may be 


used anywhere in a program, . 


The following example illustrates the use of the LITERALLY 
attribute: | 


DECLARE FB LITERALLY "FIXED BINARY'; 
DECLARE HALFWORD PB(15); 


In this example, the compiler substitutes the string "FIXED 
BINARY! for the characters ΕΒ’ in the second statement, 
resulting is the declaration of HALFWORD as FIXED BINARY(15).: 
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CONSTANT Data 
Constant data provides a means of assigning a variable name to an 
arithmetic or string constant, The associated constant is then 
substituted for the variable name wherever it is used. Νο 
storage is assigned for variables defined as CONSTANT. 


ος ο... SORTANT Attribute 


ων καν ¢ ΚΠΕ » 


À MNA ERSS tent hada RH IO RP P ti MINI NDEN SIME ANAA a AA AON: SIREN "HUE RUD MU MN Soap AUD a UR Sr 


i i E d : : 


ARIA ÉD RUNI mtb PD MD wie zt xinh Gun Quid dit dM QE SU MOM RR ON MO Mq BER api 


The data type attributes of the specified value must match the 
data attributes declared or implied for the variable name 
declared as CONSTANT. If the variable is a character string, the 
length of the value must be the same as that declared for the 
variable, | 


Some examples of the CONSTANT attribute are: 


DECLARE A FIXED CONSTANT (2048); 
DECLARE CS CHARACTER(3) CONSTANT ("ABC") 3 
DECLARE BS BIT(8) CONSTANT (*10110101*58) ; 


Restrictions. The CONSTANT attribute may be specified for ali 
data types except LABEL and ENTRY data. The current version of 
the compiler ignores the length specification for CONSTANT data; 
numeric data is assigned a length of 4 bytes, and string data is 
assigned the length of the specified string. . 


CI 
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The storage type attributes define how storage for a variable is 
to be allocated and addressed. Depending on the attribute, the 
compiler may assign the data to fixed storage, to dynamic 
storage, or to no storage area., 


 Defaults. Ifa storage type attribute is not specified for a 


variable, the default is one of the following: 


STATIC NONLOCAL, if the variable is EXTERNAL and not 
initialized. | 

STATIC LOCAL, if the variable is INTERNAL in a. 
non-reentrant environment, or if the variable is 
initialized. | | | | 


AUTOMATIC, if the variable is INTERNAL and is not 
initialized in a reentrant environment, 


STATIC EXTERNAL, if the variable is NONLOCAL. 


STATIC INTERNAL, if the variable is LOCAL. | 
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If fixed storage is to be assigned for a variable, the attribute 
STATIC is specified when declaring the variable. STATIC may be 
used in conjunction with the attributes LOCAL, NONLOCAL, 
INTERNAL, EXTERNAL, INDIRECT, and GLOBAL (see below). The valid 
combinations of attributes for STATIC variables are: 


STATIC INTERNAL LOCAL 

STATIC INTERNAL LOCAL INDIRECT 
STATIC EXTERNAL LOCAL 

STATIC EXTERNAL LOCAL INDIRECT 
STATIC EXTERNAL NONLOCAL 
STATIC EXTERNAL GLOBAL 


The INTERNAL attribute indicates that the variable is known only 
to the procedure in which it is declared, together with all 
procedures contained in the declaring procedure. The INTERNAL 
attribute implies the LOCAL attribute by default; INTERNAL and 
NONLOCAL are incompatible attributes. 


“EXTERNAL Attribute 


The EXTERNAL attribute indicates that the variable is known 
everywhere that an internal variable would be, and, in addition, 
is known in all separately compiled procedures (and their 
internal procedures) that declare the variable with the EXTERNAL 
attribute, | 


Defaults. If no scope attribute is specified, a variable 
defaults to INTERNAL, except for (1) entry or procedure names in 
the outermost procedure, and (2) destinations of CALL statements 
that are not entry names of any internal procedure. . 


The LOCAL attribute indicates that storage for a variable is to 
be assigned in the same CSECT as the generated code. STATIC 
LOCAL variables may be initialized when they are declared.. 


NONLOCAL Attribute 


The NONLOCAL attribute indicates that storage for a variable is 
not to be assigned in the procedure where the declaration 
appears. Storage will be assigned in the procedure where the 
variable is declared LOCAL. 
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INDIRECT Attribute 


The INDIRECT attribute indicates that a variable is to be treated 


as LOCAL but is always to be accessed indirectly through an 
address constant. Storage for the variable is placed at the end 
of the CSECT following all storage allocated for variables 
referenced directly. This enables the compiler to process large 
string variables, arrays, or structures without  encountering 
addressability errors in the aSSONDIEE. INDIRECT applies only to 


STATIC LOCAL variables.. 


The GLOBAL attribute indicates that a variable is to be treated 
in the same manner as PL/I STATIC EXTERNAL variables. . Storage 
for the variable is placed in a separate  CSECT, which has the 
same name as that declared for the variable; no other storage or 
code is placed in the CSECT. This allows the programmer to treat 
globally referenced variables identically in all external 
procedures and to combine RL/S and PL/I modules more easily. The 
linkage editor will ensure that storage is assigned to the 
variable only once. . 


re 


Sc -—T. 
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- AUTOMATIC Data 


s Ed 


In a reentrant environment, storage may be automatically obtained 
for a variable when the external procedure is entered for 
execution by specifying the attribute AUTOMATIC. Upon exit from 
the procedure, the assigned storage is automatically freed. 


The AUTOMATIC attribute may be specified only if the outermost 


PROCEDURE statement includes the REENTRANT option., (See "The 
PROCEDURE Statement" for details on procedure options.) Any 


variable declared with the AUTOMATIC attribute in an internal 
procedure is assigned storage at the same time as AUTOMATIC. data 


in the external procedure. 


Defaults. In a reentrant environment, if no storage type 
attribute is specified, the default is AUTOMATIC. unless the 
EXTERNAL or INITIAL attribute is specified, 


NC 
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A variable may be assigned to a general-purpose register by 
declaring it with the REGISTER attribute. 


s Pormat: Rg tesla Ar 


--ω» feni ND. dtp NOR eg ή alfo. AME qut ane FU EH APR RUD into AE OR avin se sea nine ene ams: 


΄ 


—— μμ AUR MER oq AH UA va — —— any ann eae 


RESTRICTED 
REGISTER ( number ) 
UNRESTRICTED 


——Á di T -— ` PY ή 


| 


Data declared with the REGISTER attribute must be FIXED BINARY 
(either SIGNED ος UNSIGNED) or POINTER. Any precision normally 
allowed with these data types may be declared, The register 
number specified must be in the range of 0 through 15. Any of 
the register numbers may be specified, but certain registers have 
compiler-assigned functions and therefore require caution if 
used, The normal compiler-assigned functions for these registers 
are shown in the section "Compiler Use of Registers." 


Declaring a variable with the REGISTER attribute does not prevent 


the compiler from altering the value of the associated register. 
This function is accomplished by "restricting" the register. . 


Restrictions. The BOUNDARY attribute and the INITIAL attribute 


cannot be specified with the REGISTER attribute. The variable 
name assigned to the register cannot be SARS COREE! substringed, 
or pointer qualified. . 
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The RESTRICTED attribute may be specified only with the REGISTER 
Storage type, and prevents the compiler from using the specified 
register in generated code. Before using a register to generate 
code for any statement in a procedure, the compiler checks that 
the register has not been restricted under any name known to the 
procedure. — 


The compiler defines all registers to be UNRESTRICTED on entrance 
to each procedure. Therefore, if control of a register is to be 
maintained throughout the program, the register must be 
restricted at the beginning of each procedure. Upon exit from a 
procedure, register restrictions are restored to their status 
prior to entering the procedure, 


Once a register is no longer needed, it should be unrestricted so 
that the compiler may use it. If a register is known by more 
than one variable name, each name must be unrestricted before the 
compiler may use the register. 


DUNRESTR {μυ καν. 


The UNRESTRICTED attribute may be used to indicate that the 
register associated with a declared REGISTER variable is 
available for use by the compiler, provided that the register is 
not RESTRICTED under any other known name.. It is unnecessary to 
specify the UNRESTRICTED attribute on a DECLARE statement, Since 
it is the default. 


The restrictedness of a register may be changed by using the 
RESPECIFY statement, . For more information refer to "The 
RESPECIFY Statement," 
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BASED Data 


The BASED attribute indicates that a variable is to be located by 
using the value of a pointer variable as its address. | 


{ 
EJ oe Format: BASED ee 


pointer! 
BASED [ ( =) ] [ POSITION ( posit 
ADDR { porntere ) 


Mis t BU UND tpi σώ perc epp etg m — aie ὦ 


on ) ] 


pointeri Name of the variable whose value is the address 
of the storage area. 


pointer2 Name of the variable whose address is the 
address of the storage area.. 


position Adjustment to be added to the value of the 
= the p 


m— € ρήση ης ημων κ ών ών ipud sea qus αμα 


| 
| 
| 
| 
| 


The compiler uses the pointer to locate the storage area. When 
the BASED variable is referenced, the attributes declared for the 
BASED variable are applied to this storage area, The pointer 
variable need not be static and may itself have the BASED 
attribute. The pointer may not, however, be subscripted or 
pointer qualified. | | 


If a pointer is not specified after the BASED attribute in the 
declaration, or if a pointer other than the one specified in the 
DECLARE statement is to be used, one of the following may be 
donez | 


When the BASED variable is referenced, an explicit 
pointer-qualification must be provided.. This is coded 
as previously described under "Pointer Qualification." 


A RESPECIFY statement must appear somewhere before the 
BASED variable is referenced, indicating a pointer 
variable that is to be used to locate the storage 
area. (566 "The RESPECIFY Statement" for further 
details.) | 
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POSITION. If POSITION is specified, the compiler adjusts the 
address to the byte specified by the relative position. If the 
BASED item is a bit string, the POSITION is the relative bit; in 
all other cases it is the relative byte. 


Defaults. If POSITION is not stated after the BASED attribute, 
the default value is 1. 


Restrictions. For structures, the BASED attribute must be 
specified only with the outermost structure name, This causes 
ali components of the structure to be BASED.. 
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DEFINED Data 
The DEFINED attribute indicates that the variable being declared 


represents part or all of the same storage area assigned to other 
data, - 


JUGE pede "WE Μος URGE SED. TENE ARR gun ST m€————— MM SHOE SIUE UNE GO QUA tI 


rg κ» 
| General Pormat: DEFINED ee, = 
σ.σ MEANS CN E 
| rco eem Gps 
a DEFINED € var Ls t POSITION ( diurni ) a 2 
|] var The name of a variable on which the new variable b 
! is being defined. Sr 
| E 
| position. Relative position from the start of the defining E 
i variable to ere Start. a ον ο ο. ο ο E 
[rue E Saee x νι ο ση. 


mt nn 
| 


A DEFINED variable may be overlaid on any other variable known in 
the same procedure. However, the defining variable specified in 
the declaration may not be subscripted or pointer-qualified; it 


may be an element of a structure, | 


POSITION. If POSITION is specified, the compiler adjusts the 


address to the byte specified by the relative position. If the 
DEFINED item is a bit string, the POSITION is the relative bit; 
in all other cases, it is the relative byte. 


Defaults. - If POSITION is not Stated after the DEFINED attribute, | 


GEN EE AIS CR BOR απ 


the default value is 1.. 


Restrictions. For structures, the DEFINED attribute must be 


arona TPE. APH Smelt Neale aH. STOEL: ERY LEY PORES 


specified only with the outermost structure name.. 


! 
i 
E 
| 
Γ 
i 
l 
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The LOCATION attribute is used to locate a variable at an 
absolute memory address. Whenever a LOCATION variable is 
referenced, the compiler applies the attributes declared for the 
variable to the specified address. If the address specified does 
not agree with the boundary specified or implied, the value is 
adjusted upward, | 


| 
| 


| 
Γ΄ General ων, LOCATION Attribute 


i — — 8 pom pnto ιν v ———— oÓ— e À— a Í, 


" 
1 


μμ, 


ΕΕΣ E Constant E 


— sees See 


l 
B 


constant An arithmetic constant whose value does not 
exces ο 


seme seen metas sien innan "—— ΛΕ ην pu 


E 
B 
. 
T 
| 
| 
| 
| 
| 
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The GENERATED attribute specifies that a variable is assigned 
storage within a GENERATE block, and that the compiler need not 
assign storage.. The compiler normally is not aware of these 
variables. If variables defined in assembler code statements are 
referenced in RL/S source statements, these variables should be 
declared with the GENERATED storage type, together with whatever 
other attributes are appropriate. 


Defaults. The GENERATED attribute is assigned for names 


specified in the DEFS option of a GENERATE statement. - 
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Parameter Data 

Input parameters for a procedure are assigned the parameter 
Storage type. There is no keyword to indicate this type of 
Storage; a variable in a parameter list is automatically assigned 
this attribute. References to parameters are indirect references 
to the corresponding arguments through a list of pointers 
supplied by the calling procedure, 
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. DATA. ORGANIZATION 


Arrays 


An array is a collection of data elements with identical 
attributes that occupies a contiguous area of storage and is 
known by a single name,. An individual element is referenced by 
giving its relative position in the array. 


onerat Format: ere: pac tararkon 


DECLARE. sever K nimenne tons 1 a ee 1; 


<i si sli eel i nl Gl sn Se a es ap sls MESE η AUI AIME pin sean a HEB UNE sone Apr p lia t UB QUT AIRE ATA UU ALME AU AUR P UE pU: 


—— €— 


array | Any legal variable name, 


dimensions One or more decimal numbers, separated 


l 
B 
{= 
! 
b 
E 
| 
E 
| 
| 
| by commas, — 
| 
Γ 
P 


ο. ES Gaga data eee ἃ 


É 
ἃ 
| 
| 
| 
| 


—— 1 


ουρανών REM CH d de AM MM μαμα, 


Arrays may have up to 15 dimensions. For multiply-dimensioned 
arrays, commas are used to delimit the specified dimensions. If 
the number of elements is unknown and the array is not LOCAL, 
AUTOMATIC, or GLOBAL, an asterisk  (*) may be specified as a 
dimension; in a multi-dimensional array, an asterisk may be used 

only as the leftmost dimension. | 


Defaults. The usual default attributes apply to the array if a 
ΕΝ λα type, or BOUNDARY attribute is not declared. 


ciada iii Each element in an array is aligned on the 
same boundary and relative position offset from that boundary. ΄ 
Each element of a bit array is aligned by default on a byte 


boundary. | 
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A structure is a collection of variables that define contiguous 
and overlapping storage locations. The variables comprising a 
structure usually have unlike attributes  (e.g., CHARACTER and 
FIXED), and may be simple variables, arrays, or other structures 
(called substructures)... The first variable encountered with a 
level number to the left of the variable name is defined as the 
structure name, which serves to define storage type and scope for 
the entire structure, All other variables in the structure are 
called components and are located on the basis of the structure 
name, 


diuo ME UM AU HU D S Á 


General Pormat; Structure “Declaration 


1 
= 


--- πο Uh Se ON HERD | 


T 
i 
ae nee ENS 
| 
i 


| DECLARE level name ποτ. zd " «ἜΘΝΟΣ name m d 1 EIN 


ἃ ING HI OQ NAR Mb dap ΡΠ — emm ih Detur URP UR nl iva mss sah 


| | 
| level ! A decimalointader between 1 and 32797 
attrs Data κών as defined below. 

τ CACERES ον ος ο ο ο ο. ROTEL τ. EA Me MS NE 


— M — 


Level numbers indicate the hierarchy of components in the 
structure, The major structure name is always assigned a level 


number of 1, indicating that this name is at the highest level. | 


Component names may be at the second level or lower.. Sach. 
component name must have a level number greater than its 
structure, and, if it is a substructure, the names of the 
components that make up the substructure must follow immediately 
in the same DECLARE statement, 


Level numbers are relative designators only.. If the level number 
of the current component is greater than that of its immediate 
predecessor, the current component is a sub-component of the 
predecessor. A level number equal to that of the immediate 
predecessor indicates that the two components are at the same 
level. A level number less than the immediate  predecessor's 
indicates that the current component is at the next lower level 
than the nearest previous component with a smaller level number.. 
For example, in the following structures the various levels are 
denoted by indentation; components equally indented are at the 
same level: 


DECLARE 1 STRUCT, 
| 3 VALUE, 
5 ITEMA, 
5 ITEMB, 
2 VALUE2, 
ü ITEMC, 
ü ITEMD; 
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DECLARE 1 STRUCT, 
2 VALUE), 
5 ITEMA, 
3 ITEMB; 


Attributes may be assigned to the structure name and to any of 
the component names. However, a storage type attribute may be 
specified only with the structure name, The INITIAL attribute 
may be used to initialize the entire structure or any component 
of a structure. (See "Conflicting Attributes" in Appendix A for 
a complete list of attributes that are not legal for component 
variables.) | 


Defaults.. Ifa data type attribute is not declared for a 
Structure or substructure, the default is CHARACTER, with a 
length sufficient to span all of its components. If a data type 
attribute is not declared for any component name that is not a 
substructure, the default is FIXED BINARY (31). 


Restrictions. There is a limit of 15 different structure levels 
for a structure, | | 


Boundary Alignment. If neither a data type nor a boundary is 
Specified for a structure or substructure, the structure or 
substructure is aligned on the strongest boundary required by its 
immediate components. If only the data type is declared, the 
structure is aligned on the default boundary for the associated 
data type.. | 


A BIT component that is initialized will always be aligned on a 
byte boundary. When two BIT components are declared 
consecutively, and neither is initialized or dimensioned, the 
bits are aligned only to bit boundaries. | 


Structure Organization. The size specified for a structure may 


be different from the size required to span its components.: 


If the specified size for a substructure is less than than the 
size of its components, that portion of the data extending beyond 
the substructure will overlap the data of subsequent components. 


For example: 
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αυ — ————M— a eit ζω a 


DECLARE 1 MAJOR, 
2 MINOR1 CHARACTER(3), 
3 COMP1 CHARACTER (2), 
3 COMP2 CHARACTER (2), 
2 MINOR2 CHARACTER(4), 
3 COMP4 CHARACTER (2), 
3 One ο ο ος 
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i bs Er en Road 


a EH b 
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When the specified size of the structure is less than the size of 
its components, that portion of the data extending beyond the 
structure will not overlap the a al of o variables., 
For example: 


DECLARE 1 MAJ CHARACTER (4), 

2 A CHARACTER (2), 

2 B CHARACTER (8) ; 
DECLARE C CHARACTER (1) ; 
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Name Placeholders. If the name of a structure is not significant 


and will never be referenced, or if a component is used only as a 
filler to ensure proper boundary alignment of components that 
follow, a structure or component name does not have to be 
specified. Instead, an asterisk may be used. For example: 


DECLARE 1 *, 
2 ITENI, 
2 XYTEM2, 
2 * CHARACTER(3),. 
2 ITEM3 CHARACTER (1); 


Complex Data Collections. = Any structure variable or component 


variable may be declared as an array. Ail structure ος 
substructure dimensions are propagated to their component 
variables. The packing of consecutively declared BIT variables 
that are not themselves initialized or dimensioned is not 
affected by dimensions that are propagated to component 
variables. | | 


An unspecified dimension (represented by an asterisk) is allowed 
in a structure or substructure only as the leftmost dimension of 
the highest-level dimensioned variable. 


The examples below illustrate the declaration of three types of 
arrays. 
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Example 3 - ν᾿ declared | as an ae 
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Example 3 - A relatively complex arrangement of arrays within. 
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Miscellaneous attributes allow the programmer to specify 
initialization values, and to declare the boundary alignment and 
normality of variables. | 


BOUNDARY Attribute 


The BOUNDARY attribute specifies the boundary alignment required 
for a variable, | 


{ 
a Once JOAN PUMA ATE TROTE 


BOUNDARY | Μπ pce te position] d 


an i AMD QD srana Sa pem 


ΜΝ 


ρονκσν κιν "——————— n— — tee tae 


boundary May be BYTE, HWORD, WORD or DWORD.. 


position A decimal number that indicates the starting 
byte position (relative to 1) ideo: the 
as id pene dd 


ΜΗΝ . i — 9 μι 


The specified boundary may be BYTE, HWORD, WORD, or DWORD, 
corresponding to byte, halfword, fullword, and  doubleword 
boundaries, respectively. | | | 


Every element of an array has the same boundary and position. A 
structure variable name must not have a user-specified boundary 
that is less restrictive than that of any of its immediate 
components, For example: NEN 


DECLARE 1 A BOUNDARY(BYTE), 
2 B BOUNDARY (WORD) ; 


is illegal.. The starting byte position, however, need not be the 


Defaults. If the position is omitted from a BOUNDARY 
specification, the default position is 1. If BOUNDARY is not 
specified, the default alignment for the variable depends on its 
attributes (refer to table below). . 


: Restrictions. The BOUNDARY attribute cannot be specified with 
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the REGISTER, LABEL, or ENTRY attribute. 
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Κω 


BIT (in a structure 
with no specified 
dimensions and not 
initialized) 

BIT (in all other byte 
circumstances) _ 


CHARACTER - byte 


PIXED/POINTER (8) |. byte 
| FIXED/POINTER (15) halfword 
- halfword 
FIXED/POINTER (24) second byte of a word 
FIXED/POINTER (31) - word 
Ου | word 
LABEL - halfword 
ENTRY | halfword 


Structure with data default boundary for the data type 
type declared | | ΙΙ | 
largest boundary required by the 
immediate components 


Structure with no 
data type declared 


; 
| 
| 


— p—— ine τν, ΑΗ Wiley MERO. oc. SONI uobis ας paste CHARS πό “LEER πα AREE €—— 
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An arithmetic, string, or pointer variable that is declared 
STATIC LOCAL may be initialized to a starting value using the 
INITIAL attribute. The initializing values are assigned to 
variables at compile-time only. Care should be taken when using 
an initialized variable as the receiver in an assignment 
Statement since the initializing value will be destroyed. (See 
"The Looe Statement" for ida esis details.) 


sii aa aaa cea es μμ. 


ο. ο ομως, INITIAL ο τοτε 


stringinit | pcd 
INITIAL ( { if » ! 03 bee) 
| arithinit mE arithinit 


À— ÓÀ  na ane — M M te MÀ MÀ MÀ MI MÀ tm € s 


i 
| 
| 
| 


Bes Torman SNNN 


INITIAL ( [ ( SEERCEGP ) 1 ι { ο. u Hu ni E. 


Ae p—— PA ο 2 GLEN HEE IE, κ ια Αα ΑΛ Αα —————Ó— ——" 


firstrep A numeric η the number of 
| times the value is to be repeated. 


secondrep À numeric value indicating the number of 
| ο κ τών ο dr UAM cde a String Constante. 


uo sm en c man. οσο.” 


| 
| 
| 
| 


+ | + + 
[ {rep ) jf ] initvalue [ {-} [ 1 initvalue ] ... 5 


rep A numeric value indicating the number of 
times the value is to be ου 


initvalue ᾽ An arithmetic constant, the name of a variable 


declared as CONSTANT, or an instance of the 
ADOR; LENGTH or DIN ' icd d 


..-”---- 


i. 


————— PERO ΗΝ rete AD oria. cmt" — Ó—Ó—— — PERPE 
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Initializing Yalue. The initializing value should be coded so 
that it would be valid in an assignment statement in which the 
initialized variable is the receiver. | 


Replication Factors. Replication factors may be specified as 
arithmetic constants or as instances of the LENGTH or DIM 
function. Examples of replication factors are: 


DECLARE A(10) FIXED STATIC INITIAL((10) 0); 
DECLARE B(3) CHARACTER(2) INITIAL ((3) *XX"); 
DECLARE STR(10,2) CHARACTER (25) INITIAL ((20) (25)! 9): 


If there is only one replication factor, and the variable being 
initialized is an undimensioned string variable, the replication. 
will be applied as if it were the second replication factor. In 
this respect, the two examples below are equivalent: 


DECLARE BTSTR BIT(100) INITIAL((1)(100)'1'58); 
DECLARE BTSTR BIT(100) INITIAL((100)*1*5); 


Restrictions. Data which is declared NONLOCAL, BASED, AUTOMATIC 


or REGISTER cannot be given an initial value with the INITIAL 
attribute, | | | | 


initializing an Array 


Multiple initial values separated by commas are used for array 
initialization. If too few values are specified, the remaining 
array elements are not initialized; if too many values are 
specified, the extra values are ignored.  . For multiply- 
dimensioned arrays, initial values are associated in. row-major 
order. For example, the array A(3,2) is mapped as: A(1,1) 
A(1,2) A(2,1) A{2,2) A(3,1) A(3,2).. The sequence of the values 
specified after the INITIAL attribute should προς to this 
mapping order, . 


In the following example, RLSTEAM is a three-dimensional array 
with two elements in each dimension; each element is a character 
string of length ὃ. 


DECLARE RLSTEAM(2,2,2) CHARACTER (3) 
= INITIAL('DJS','BRLC', (2) *, (4) 141581}: 
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In storage, RLSTEAM would look like: 


(3.20 0739 73 SY 

(1,2. 1E I ΕΙ. 
(22,0 — i'mdsfinei || 
(1,2,2) | undefined | 
(2,1,1) 3 | 
(2, 1, 2) 
(2,2,1) 
(2,2,2) 


: Initializing a. Structure. Variables declared as part of a 


Structure may be initialized at any or all levels in the 
structure. This includes any variables in the structure that 
have declared and/or inherited dimensions. {See the discussion 
of structures under "Data Organization".) The following two 
examples are equivalent. 


DECLARE 1 A CHARACTER(10), 
2 B CHARACTER(5) INITIAL('WWHWWW'), 
2 C CHARACTER(5) INITIAL('XXXXX'); 


DECLARE 1 A CHARACTER (10) INITIAL (*WHWWWEEXEK') » 
2 B CHARACTER (5), 
2 C CHARACTER (5) 3 


In the next example, the initialization of Y is correct because Y 
has inherited the dimensionality of X, making its total 
dimensions (100, 2. | 


DECLARE 1 X(100) CHARACTER(8), 
2 Y(2) FIXED(31) INITIAL((200)0); 


Note that there is a possibility of reinitializing parts of 
structure storage. Care should be taken to avoid such situations 
Since the results are undefined. For example: 


DECLARE 1 A CHARACTER (4) INITIAL('XXXX!), 
2 B CHARACTER(2) INITIAL('AA!), 
2 C CHARACTER(2) INITIAL('BB'); 
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RMAL and ABNORMAL Att ributes 


The purpose of the NORMAL and ABNORMAL attributes is to inform 
the compiler whether to keep histories of specific variables. 
(Keeping the history of a variable could allow the compiler to 
produce more efficient code. But, if variables overlap one 
another, and this overlapping is unknown to the compiler, 
incorrect code might result.) This type of optimization is not 
Supported by the current implementation. Therefore, although the 
words NORMAL and ABNORMAL are parsed (to provide compatibility 
with IBM's PL/S), they have no effect on the code. 


 XALUERANGE Attribute - 


Variables declared as BASED LABEL or BASED ENTRY may also be 
assigned the VALUERANGE attribute. This attribute specifies all 
possible values that BASED variable may reference. This option 
has no to effect on the compiler-generated code, but is parsed to 
provide compatibility with IBM's PL/S compiler. . 


ssa ών drei Qui RUD AN EN AQ ως 


Nb woo HDD SNR UAE σι a ae ANB aU SU RUD E sei ans teat $ —————— 


Sonoras TOCHAR Td Ὁ 


nis ec η aie wea κά dE VM QU 


VALUERANGE (Ci name E " name Eu ) 


1. μμ μπορω AN MISERE 


] 
d 
| . 
1 


— —— 


ο ων JHBIAS VA ο si ue UNDE bah - MENS avi Sahni diis Api uS QUOC MER oni eU SiC 
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THE RESPECIFY STATEMENT 


The RESPECIPY statement defines or redefines certain. attributes 
of variables. It may be used to restrict or unrestrict a 
REGISTER variable, or to provide a new pointer value for a BASED 
variable or structure.  RESPECIFY acts only as a compiler control 


Statement and does not cause any executable code to bé generated. 


Γ΄ 


E ο. σπα: ΝΤ Statement 


| RESTRICTED 
var UNRESTRICTED 
RESPECIFY E! } [ 1 
(var ΕΕΣ, BASED (ptr!) | 
| JAAGSB(ADUR(PET OE: 


| 
b 


— ———— oh ee sR ee ο. ae ἅν 0 manomano 


l 

ἱ 

| 

| 

P 

{ 

qu  Τ μου O 

. | 

| var The name of a register variable to be restricted or 
| released, or the name of a based variable or 

| structure whose base is to be changed. 

i » | id | 

| ptr! Name of the variable whose value is the new address 
| of the storage area, 

! 

! 
i 
LN 


ptr2 Name of the variable whose address is the new address 
of the b ad area. 


SUR ARN MB MODO RADIO RAP APUD D AOI UU p NO — ρώσων, 


wen snr Hele ein seme atte tame RT MRNA — ον -...”.”- "—— sea 


Restricting a REGISTER variable prevents the compiler from 
altering the contents of the associated register. This enables 
the programmer to load a value into the register for increased 
efficiency or to interface with assembler (GENERATEd) code. When 
the contents of the register are no longer required, the register 
variable should be unrestricted. The compiler will flag all 
references to unrestricted register variables with a warning 
message.. | | 


A register variable may be specified as unrestricted (even if it 
is already unrestricted) by coding the RESPECIFY statement 
without the RESTRICTED or UNRESTRICTED keywords. | | 


The RESTRICTED and UNRESTRICTED attributes may also be specified 
on the DECLARE statement for a register variable.: 
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PROVIDING A NEW POINTER Ἢ 
The RESPECIFY statement may be used to provide a new pointer for 
locating a BASED variable. The variable must have been declared 
as BASED, and it cannot be a component of a structure, The new 
pointer value is subsequently used to locate each variable 
included on the RESPECIFY statement, including all structure 
components if the variable is a structure name, and any variables 
that were declared DEFINED on the variable. If the POSITION 
attribute was specified when the variable was declared, that 
value is used with the new pointer to locate the variable. . 


A BASED variable may be specified as having no explicit base 
pointer by coding the RESPECIFY statement without the BASED 
keyword. — | 
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The assignment statement dynamically assigns a value to a 
variable. The source expression is evaluated, and the result of 
the evaluation is assigned to the receiving variable, | 


B 


l T 
| General Format: ABS gnment. MERO M AMI: a 
o aaa a a et 
| E 
| receiver = source ; “f 
ο. ο.” ο N ο τι NA Lc [5 
{ | ΠΣ 
| receiver A variable of type FIXED BINARY, CHARACTER, E E 
| BIT, or POINTER. f- 
| ps 
| | source An expression to be evaluated and assigned to ΙΙΙ. 
B |. the receiver. to 
AA Ee ee ο κο ee EE το ο ο AE 


The receiver in an assignment statement must be a variable whose 
type is FIXED BINARY, POINTER, CHARACTER or BIT. If the receiver 
describes an element of an array, it will include a subscript 
expression. If it describes part of a character string or bit 
string, it will include a substring expression. If it is BASED, 
it may be explicitly pointer-qualified. The source expression 
must conform to the rules for general expressions. 


Storage-to-storage operations will be performed oniy if the 
receiver is of type BIT or CHARACTER and the source expression 
can be evaluated using storage-to-storage operations; otherwise, 
register operations will be performed., (For a description of 
Storages ton eterage. and register operations, see Computational. 
Elements.) | 


Different Lengt ths and Precisions 
If a register operation is performed, the compiler must make the 
receiver and the value to be assigned have the same precision. . 
If a storage-to-storage operation is performed, the compiler must 
make the receiver and source expression have the same length.. 
The adjustments made by the compiler when a value is assigned to 
the receiver are as follows: 


Ex ΟΣ Ν᾿ 


| Receiver | Value is 


1 source 
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ο κ. 


| T 


i Precision: Source is | Source is 
E ou d ΝΕ 


UC τ 

| value is 
| extended | extended 
| on left | on left 
d "ors sign i v zeros 


| longer 
| than 


NN. ROUES 


Value is truncated on 
left 


| Receiver |- 
| shorter | 
{ than. to 
l source to 

lu: 


String Receivers 


String receivers may not be longer than 256 bytes. 
that are not multiples of eight bits in 


bit-string receivers 


ο 


1 


— | 
Source or | Source ος 
Receiver is | Receiver is 

BITO d CHARACTER | 


Valves is 
 { extended 
| on right 
E n Bins 


ών Quit ame) vi unii gi i sirinin Aui odii con Nu chi GNU DNE i AN qai 


o 

NER. Dx 

^ 

2 

| 

to 

οφ) 

22 

| Value is 
| extended 
{ on right 
| ee Zeros 
-—-i- 
Γ΄ 
ps 
m 
ES 
d 
ATI 


Value is truncated on | 
right 


In addition, 


length or are not aligned on byte boundaries are limited to 256. 
bits and may only be assigned bit-string constants. 


A source expression containing a variable-length substring cannot 


be longer than the receiver. 
variable-length 
expression, . If both the 


contain variable-length  substrings, 
The compiler assumes (but does not check to ensure) that 


length. 
these rules have been followed, .: 
If a bit string has a variable 
assumes (but does 
Specifies the 
specifies the last bit of a byte. 


substring cannot be longer than the 
source expression- 


substring range, | 
not check to ensure) that the lower boundary 
first bit of a byte and the 


Similarly, a receiver containing a 


source 
and the receiver 
they must have the same 


the compiler 


upper boundary 
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The PROCEDURE statement defines the primary entry point for a 
procedure, and always appears as the first statement of each 
external or internal procedure. (Secondary entry points are 
defined by the ENTRY statement.) Only assembler language 
Statements (defined using GENERATE statements) and compiler 
control statements may precede the PROCEDURE statement for an 


external procedure. Αλ number of options may be specified that 


alter the entry ans exit code generated by the compiler. 


b πι 
l πο. Να PROCEDURE Statement | 
ne ο ο ee E νο CRM | 
! ! 
| procname: PROCEDURE (User [,parm]... )1 [ OPTIONS (optlist) ] ;! 
B i 
Ὁ“ LI I ον ο ον --ι 
i Ϊ 
| procname Name that defines the dac entry point of the | 
t | procedure, bc 
i | | zr 
| parm A variable name to be associated with the pa 
| arguments appearing in CALL statements to this i 
l procedure, { 
I | | | l 
| optlist One or more keywords, separated by commas or l 
b blanks, that specify the options to be used for | 
{ altering arangan bc and exit "Odo | 
τι ο ο N NN κ ον ο ο ο κ σα 


STRUCTURE ΟΕ A PROCEDURE 
A procedure must begin with a PROCEDURE Statement and end with an 
END statement, An external procedure may contain other 
procedures, called internal procedures, which may, in turn, 
contain other internal procedures up to a maximum depth of  15.. 
An internal procedure may be invoked only from its containing 
procedure or from another internal procedure at the same level in 
its containing procedure. An external procedure may be invoked 
from any procedure (including itself if it is reentrant).. 


Data declared in a procedure is known to itself and to its 
internal procedures. An internal procedure may not declare a 
variable with a name that was declared or used in any other 
procedure in the compilation.. 
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DECLARING THE PROCEDURE NAME 


ASRS pti: AUR aD. SECRETED Saha quati 


In the calling procedure, the name of a called procedure may be 
declared with the ENTRY attribute. If the procedure name is not 
declared, the called procedure name is defaulted to external 
unless it appears as an entry name on an internal procedure, 


Parameters on a PROCEDURE statement must be  unsubscripted, | 
unqualified variable names, separated by commas. The maximum 
number of parameters is 255. 


There is a correspondence between the parameters on the PROCEDURE 
Statement and the arguments on CALL statements that invoke the 
procedure, When arguments are included on a CALL statement, a 
parameter list is produced. Each argument is assigned one word 
in the parameter list, and the address of the argument is 
inserted in that word; register 1 points to this parameter list. 


Arguments are associated with parameters in the order in which 
they appear; the first argument is associated with the first 
parameter, the second argument with the second parameter, and so 
on, The particular names chosen for the arguments and parameters 
is not significant; the parameter names are used only as 
placeholders. However, all parameter names must be unique 
variable names in a ΕΠΕ 


Arguments are declared in the calling procedure; parameters are 

declared in the called procedure. The data type attributes 

declared for a parameter should be the same attributes declared 

for the corresponding argument in the calling procedure, . Since 

parameters are automatically assigned to the parameter storage 
class, no storage type declaration is required,.. 


Bo j 3 


Assigning a value to a parameter results in the modification of 
the corresponding argument... This has no effect on the calling 
procedure, unless the actual address of the argument was inserted 
in the parameter list or the argument was a constant... (For a 
description of how arquments are passed, see "The CALL 
Statement,") | 


A parameter whose corresponding argument is a constant should not 
be modified, since this may cause unpredictable results in the 
calling procedure. 
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The linkage code generated for procedures follows the standard 
IBM linkage conventions, Certain registers are assigned to 
handle the various linkage functions, and a save area in storage 
is used to save the contents of all registers. | 


The linkage registers and their functions are: 


Register p | Contents 


Bolt 


—— ——————————— 


Ὡς anatase mi 


Aecress of μος: po nr in the add P oontra 


Ml situ, "AID cii. sorte HUND R. μήνα 


14 ‘Address of return point in calling procedure 


[ 

i 

ic 

l 

i 

ni 

d 
(return address) 4 
mE | E b 

| 

|] 

a] 

| 

| 

| 

A 


b 
| 
εν. 
| 
Γ 
bc 
----------------------------- Ὃ μα ον... 
t . 

! 
E 
bc 
i 
d 
I 


Adoress ot παν ος ο... S Save area 


——————— 


----- 


μμ μαμα μμ 


Address of parameter list when arguments are 
passed to the cR red σήμερα 


campo PUDE veh ates sist os ein ie sl ile aa i tai aldo acta cts one HO ebm ns in QD QE AU DARE a sn SUE 


soU son ani UR inh inten ene ARE Ug tut : 


Every calling procedure provides a 72-byte area for the 
preservation of its registers, and places the address of this 
save area in register 13. It is unnecessary to provide a save 
area for a procedure that does not contain any CALL statements.. 
{This condition is detected automatically by the compiler, 
although it may be specified explicitly with the  NOSAVEABEA 
option.) The format of the save area and the normal manner in 
which registers are saved and restored is as follows: | 


The called procedure saves the contents of registers 
14 through 12 in the calling procedure's save area as 
Shown in the table below. 


If the called procedure has no save area of its own, 
the address of the calling procedure's save area is 
kept in register 13. | 


If the called procedure has its own save area, the 
address in register 13 (the calling procedure's save 
area) is stored into the chain-back field of its own 
save area. The called procedure also places the 
address of its own save area into register 13 and into 
the chain-forward field of the calling procedure's 
save area. (Note:  NOSAVE(13) causes ορ σας of 
this chain forward; see λα NRI 
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pointer to restore registers 14 through. 
If a RETURN statement 
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Before returning to the calling procedure, the called. 
procedure restores the contents of all registers. - 


the called procedure restores register 13 from 
own save area (if necessary), then uses this 
12 from the 


its 


calling  procedure's save area.. 


is used to return control to the calling procedure and 


'CODE(value)' appears on the 15 


contains this 


Statement, 
value upon return; 


register 


if ΤῸ destination’ | 
appears, register 14 contains the destination address.: 
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Not Used 
Back chain (address of calling procedure's save area) 
Forward 


Register 


Register 
‘Register 
Register 


Register 


Register 
‘Register 
‘Register 
Register | 
Register — 
Register 
Register 


Register 
Register 


Register 


Save Area oo ee 


contenta 


chain (address of called procedure's save area) 
18 (return address) 

15 (entry point address) 

ο 
(parameter list address) 


1 
2 
3 
4 
5 
6 
7 
8 
9 

10. 
11. 


Ln 
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A number of options . are available that alter the entry and exit 
code generated by the compiler. Some of these options may be 
coded only on the PROCEDURE statement of an external procedure, . 
while others may be coded on the PROCEDURE statement of an 
external or an internal procedure.. The options, separated by 
commas and enclosed in parentheses, are inserted after the 
parameter list and the word OPTIONS. These options are 
summarized in the table below and described in succeeding 
paragraphs, . 


Ue M Should be -Eeentrant.—_ 


1. "register 


b 
=f 


Γ- pu— pii 


= x WOCODEREG* EN ο... “that the compi ier οι. not Sot 


up code address reg.: Tii oaa 
1 ‘DATAREGS | specifies register or registers to je 

b. used for addressing data... OCC 
i WODATAREG ¥ 1 specifies that the compiler should not Set 


l. ———— ντ. EU NON ERN 


Ι---------------------ἊὋ--ἃ...10 ἆβζα addressing registers. m UNES 
T SATE. | EN ΜΛ ἘΚ to rds saved upon "entry | 
] CNOSAVE- goa specifies registers not Ἔο ... PTT προς. τ 
EE | | entry and restored apom exit from the 
ιο ο ο ο. οι L T ORNES O S E E LI 
J SAVEAREA d specifies that a save area, . “chained ‘via 


Lol. τοα 13, 15 to be generated, __ | ΜΑ ΜΜΑ 
CEOSAVERREA rs specifies that no save area is to Be 


d ID* | m specifies that an dtentifring CRAracter 


b. | string is to appear as part of ‘the’ ee 
ο ec eer nonin FORSTER ted: prologue. —- 


| NOID* | indicates that no identifring | 

dual character. string exists... ως MEI 
| PROLOG | indicates that the compiler should generate 
o | prologue code for the PROCEDURE ana ENTRY 
eaaa statements, o LL ο EAE A E EAA 
| NOPROLOG | specifies that no τοῖος, σαι. 15 τν be | 


|. generated by the compiler. == 
| specifies that the compiler shoelt g ρε. 
epilogue e for REI URN and procedure END 


"——————— 


| EPILOG 
b 


to bo statements, a SE RE he ο ο SON 
. | NOEPILOG = το generation of SPa oTe εσες SE 

ρω indicates: that operating environment of 

i. tthe procedure is OS (or V52)... NOSE 
| ENTREG to “specifies that register 15 locates the | 
i... ο dein SREEY points |... ος ων eins NP ae RUE AE NE 
E NOENTREG | indicates that no register can "be relied onf- 
ἐς mici το Locate the entry points (oe Lll 
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Procedure Statement Sutton acorde 


| 


€ πο νυν € σος tee ONLINE RERUMS SUR ia ade AE AME RR SUO ο ου 


τρ CRETREG [^ specifies t hat iegdister- 34 aa the 
i. ee pc peturd ος τοσα  ——. 1 νο... d 
d NORETREG | indicates that no register may be relied on 
Ie a nd. το locate the return location, OMM eg on, 
| PARMREG | specifies that register 1 1 locates a | 
Vn ee reed an Parameter list, ee ο αν. 
b NOPARMREG | | indicates that no register may Tbe "relied on 
DON EN. οι to locate a parameter list... ie 
| CSAVEREGEC | specifies that register 13 locates save 
ο S a  f. areas on the save chain,. . d 
: NOSAVEREGS 1 “indicates that no save register exists and 
i οι... therefore no save chain,, e Ὃν... 
E TCAWTODATA* | indicates the size limit of the he dynamic 
|. CLS ECT. created for a reentrant procedures... 
| NOAUTODATA* |] specifies that there Should mer no dynamic 
o ο ο uu ta ατσαν Luo m ee 
| KEY* 1 indicates that the procedure i e modi fies the 
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Γή protection key... 


* May be specified only on the PROCEDURE statement for an 
external procedure, | | 
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REENTRANT Option 
When REENTRANT is specified as an option on the PROCEDURE 
Statement, the compiler generates reentrant code.  Reentrant code 
requires separate base registers for addressing code and for 
addressing dynamic storage obtained on entry to the external 
procedure. The dynamic storage area contains AUTOMATIC data 
(including AUTOMATIC data defined in a GENERATE DATA statement), 
save areas, and data assigned to a temporary location by the 
compiler. | 


The REENTRANT option may be specified only on. the PROCEDURE 
Statement for an external procedure. When REENTRANT is coded, 
the external procedure and the internal procedures are treated as 
a unit of reentrant code; internal procedures are not separately 
reentrant. Storage for AUTOMATIC data in external and internal 
procedures is obtained at the same time, | 


A register that is never restricted in the program is used for 
addressing AUTOMATIC data, unless specified otherwise with the 
DATAREG option, | 


Conventions for  Reentrant Procedures. The GETMAIN macro 
instruction is part of the compiler-generated entry code for an 
external procedure in a reetrant environment. This macro. 
normally obtains the dynamic storage area from subpool δ. 
Storage may be obtained from a different subpool by coding the OS 
option with the SUBPOOL sub-option on the PROCEDURE statement. 


The code expansion of the GETMAIN macro instruction requires the 
use of registers 0 and 1.. The compiler generates code to restore 
register 1 after execution of the GETMAIN macro instruction, 
provided it was saved initially. . | | 


The compiler maps the dynamic storage area in a dummy control 
section  (DSECT) labeled @DATD, and uses a register that is never 
restricted in the program to address data in the dynamic storage 
area. (The DATAREG option may be used to override this compiler 
assignment.) The dynamic storage area contains the following: 


Data declared as AUTOMATIC (including GENERATEd), data 
that was not declared with storage class, and data 
that is not initialized. . m 


Save areas, | 
Temporary data areas required by the generated code. 


If it is necessary to obtain a compiler-independént dynamic 
storage area, the NODATAREG option is specified. The size of the 
dynamic storage area required by the procedure is always stored 
in an area labeled @SIZDATD, which is a fullword located ση. a 
word boundary in the static area. This size specification may be 
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used in a GETMAIN macro to obtain dynamic storage. The first 
byte of this storage area is the subpool number. 


Once dynamic storage is obtained, it may be necessary to provide 
addressability and to chain save areas together. To provide 
addressability, code: | 


GENERATE; 
L reg,address-of-dynamic-area 
USING @DATD,reg 

@ENDGEN 


If a save area is desired, the calling procedure's save area and 
the called procedures save area may be chained together. The 
following code provides for this chaining: 


GENERATE; | 3 
ST 13, @5A00001+4 PUTS ADDRESS OF CALLING PROCS 
* | SAVE AREA IN CALLED PROCS 
* mE | | |. SAVE AREA | 
LA 15,83A00001 PUTS ADDRESS OF CALLED PROCS 
ST 315,8(,13) SAVE AREA IN CALLING PROCS 
LR 13,15 REG 13 POINTS TO CALLED 
* | PROCS SAVE AREA 
QENDGEN 


The code that chains save areas together must follow the code 
that provides addressability.: 


The compiler may require temporary storage space with  high-order 
zeros.. In a reentrant environment, the compiler generates code 
to clear an area for this temporary storage (the area is labeled 
@ZTEMPS and its length is equated to the label 3ZLEN). If the 
programmer is generating his own prologue, he is responsible for 
clearing the temporary storage area. This may be done using the 
following instruction: | | 


GENERATE (XC QZTEMPS (@ZLEN) , @ZTEMPS) ; 


Restrictions. The REENTRANT option can be Specitied: only on the 


PROCEDURE statement of an external procedure, 


| 
| 


i 
i 
{ between 2 and 12. 
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The CODEREG option specifies the register or registers to be used 
for addressing the generated program (4095 bytes of 
addressability per register). Since the specified registers are 
used as base registers, they are unavailable for any other use in 
the program. 


| . 
| General Format:  CODEREG Option 
ος ν᾽ CES 


! 
i 
νο cnn | 
! 
| 


register Each register specified must be an integer 


 NOCODERES Option 


When the NOCODEREG option is specified, no code for establishing 
program addressability is generated by the compiler. In this 
case, the compiler assumes that addressability has been | 
established by other means (for example, by a GENERATE 
statement). 


Restrictions. The CODEREG and NOCODEREG options cannot be 
specified on the PROCEDURE statement of an internal procedure, 
since the internal procedure is addressed via the code registers 
of the external procedure. Registers 0, 1, 13, 14, and 15 cannot 
be specified in the CODEREG option. | { 


R-1555/11 The Rand Computation Center: | Page 81 
RL/S Language Reference Manual 


The DATAREG option specifies the register or registers to be used 
for addressing data (4095 bytes of addressability per register).. 
In a reentrant environment, these registers are used for 
addressing AUTOMATIC data. In a non-reentrant environment, they 
are used for addressing STATIC LOCAL data (normally not used). 
The registers are established in the prologue as base registers, . 
and are unavailable for any other use in the program. ` 


| 
| 
| 


General Formats DATABEG TB ον 


i 
| 
d 
bv 
» 
i 
1 


| DATAREG t register. Ll. . το ο... 


Aviti pt HP E ane: ————————————— —Ó— S 


register Each register specified must be an integer | 
BOUNCON: je apn EC 


——— RES 


 NODAZAREG Option 


ANE pl SIND 


The NODATAREG option specifies that no code for establishing data 
addressability is generated by the compiler. If NODATAREG is 
specified in a reentrant environment, ΠΟ storage or 
addressability is provided for AUTOMATIC data; the requirements 
for dynamic storage must be avoided or storage must be obtained 
and addressability provided by other means (for example, by 
GENERATE statements)... 


Defaults. If neither DATAREG nor NODATAREG is specified, 


NODATAREG is the default in a non-reentrant environment, and 
DATAREG is the default ina reentrant environment. 


Restrictions. The DATAREG and  NODATAREG options cannot be 


specified on the PROCEDURE statement of an internal procedure, 
since its data area is part of a general data area provided for 
all procedures by the external procedure, | Registers O0, 1, 3133, 
14, and 15 cannot be ee in the DATAREG Options 
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SAYE Option 


The SAVE option specifies which registers are to be saved and 
restored upon entry to and exit from the procedure. Registers 
not specified with the SAVE option retain their current value 
upon exit from the procedure. If no registers are specified for 
SAVE, all registers are saved, The SAVE option may be coded on 
the PROCEDURE statement for an internal procedure.. 


| 
| 
| 


Rieter Sorma: SATE a 


SAVE E € — D register Fe 1 | 


m 
H 
E. 


hd τι | An eod tele Ν᾿ ne Nr inclusive. 


ο i ain lia sa tae i ad SN 


— 


The NOSAVE option specifies which registers are not to be saved 


and restored upon entry to and exit from the procedure. These 


registers will retain their current value upon exit from the 
procedure, Registers not specified with the NOSAVE option are 
saved and restored upon entry to and exit from the  procedure.. 
The  NOSAVE option may be coded on the PROCEDURE statement for an 
internal procedure. A NOSAVE of register 13 is interpreted as 
negating forward chaining of the save areas. | 


— ο ών ών ο ών ο ο ο μα ον — 


ορ Format: BOSATTE prion. | 


pu ———Mr IIET AEA ERD adiri ix ni BUE tin bi diu lai: ce 


μαμα, OEE egies 


as ΜΗΝ ών μα 


——— SANS semi 8 


Cem uem tst AUN". Sua i as ο MOOD mM μας 


i 
| 
-- 4 
E , 
NOSAVE τ ( pedir [ ə emper pr: J t 
i : MTS IE 
| 
ΕΕ An Anteger between 0 ang 15, ο οκ. j 
- ΜΠ - 


— — M 009 EUR AH OTE tna: παν seni en sane te € Het sento sns Mm Se t — Zi 


 Defaults. If neither SAVE nor NOSAVE is specified, SAYE is the 


default if there is a save register, and NOSAVE is the default 
otherwise,. 


Restrictions. The SAVE and NOSAVE options cannot be specified on | 


the same PROCEDURE statement, . 
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SA 


The SAVEAREA option causes a save area to be generated that will. 
be chained to the caller's save area when the procedure is 
entered. This option may be specified for an internal or 
external procedure, If SAVEAREA is not specified, the compiler 
will provide a save area only if the procedure calls other 
procedures, _ | mE 


ene. Format: pe ene ο ο. 


ji 


SAVEAREA [ € number a 1 


number An integer n than or equal to 8, 
E uocare M the size b. me save area in , 


The size of the save area specified must be large enough to 
contain all registers that will be saved in it. 


The default save area size is 72. 


Restrictions. The size specified for SAVEAREA cannot be less 


than 8 bytes. | 


NOSAVEAREA Opti 


dires ane sams 


i 


The NOSAVEAREA option specifies that no save area is to he 
generated for the procedure. This option may be coded on the 
PROCEDURE statement for an internal procedure and is useful only 
when no other procedures are called. When.  NOSAVEAREA is 
specified, the following CONPIIOT actions are suppressed: 


Establishing a save area and Chaining it back to the 
calling program's save area. . 


Updating the forward-chain field in the calling 
procedure's save area. 


Restoring the contents of register 13 before control 
is returned to the calling procedure. | 


Defaults. If neither  SAVEAREA nor  NOSAVEAREA is specified, | 
SAVEAREA is the default if there are CALL statements in the 
procedure, and NOSAVEAREA is the default otherwise. 
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The ID option provides a facility to produce an entry point 
identification string. ID causes a character string to appear at 
the beginning of the compiler-generated prologue; the text string 
specified may obtain up to 256 characters.. 


Es d Formats 15 Option. 


| ανν MM ήν. m— MUN stan en AU GO AERA colt. siete MÓN RIP AA 


E 
! 
d 7 
UM 


ID [ ( * text ' ) 1 
ο ο πμ ο ο ee eee ον. 


Defaults. If no character string is specified following the 
word ID, the string that appears at the beginning of the prologue 
is of the form: 


' procedurename dateofcompilation timeofcompilation' . 


NOID Option 


PY PT ERA HIR gii E 


The NOID option indicates that no entry point identification 
string should appear at the beginning of the compiler-generated 
prologue, 


Defaults. If neither ID nor NOID is specified, the default is 


PRIUS ΗΝ ot en: ATEN ων ΑΦ reium. 


ID. 


Restrictions. The ID and NOID options can be specified oniy on 
the PROCEDURE statement for an external procedure. 
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PROLOG Option 


The PROLOG option indicates that the compiler should generate a 
standard sequence of entry code, called the prologue, wherever a 
PROCEDURE or ENTRY statement appears. 


The  NOPROLOG option suppresses compiler generation of the 
standard entry code, However, other options may still be used to 
indicate the functions of the user-provided prologue code. For 
example, CODEREG(7) may be specified to indicate that register 7 
is used as a base register for addressing code, . 


Defa alts. If neither PROLOG nor NOPROLOG is USB ECE Eres PROLOG is 


ERILOS Option - 


SRD TED ᾱ..ὁ 


The EPILOG option indicates that the compiler generates a 
standard sequence of exit code, called the epilogue, wherever 
a RETURN or procedure END statement occurs.. 


The NOEPILOG option suppresses the compiler generation of the 
standard exit code. 


Defaults. If neither EPILOG nor NOEPILOG is specified, EPILOG is 
the default. 


BS de 


V 
i 
μα 
b | | | 0 
| 
o 
m 
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OS Option 


«κ gaia Ιουν 


The OS option specifies that the operating environment of the 
procedure is OS (or VS2).. 


ο ABl) icd anise se sent: ——————————— μα ie qu apio ARN cesses si UO QUU AU ED AUD RUDI EAA RUE IUIS RD t α am ÀÁ μμ Miti ciim tr ABI SOHO BD SINE μας 


our Format: oS Option 


————————————— Qm a ο ος IS ο ο LINE Ae. Ea αν OT ο SEO 


OS [ ( SUBPOOL (n ) [ ,HIERABCHY is ) 1) 1 


SUBPOOL indicates the subpool for dynamic storage; n is the 
identifying number, If a subpool is not specified, the default 
is 0. ° HIERARCHY indicates the storage hierarchy; if it is not 
specified, the default is 0.. SUBPOOL may be abbreviated SP and 
HIERARCHY may be abbreviated HIARCHY,. 


Defaults. If the os option 15 not specified, 


REL SORES LEP ES. 


OS (SUBPOOL (0), HIERARCHY (0)) is the default. 


- Restrictions. The OS option can be specified only on the 


PROCEDURE statement for an external ΕΡΕ 


Sesto» RIED. E E ERE NORD oper nta 
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ENTREG Option 


The ENTREG option specifies that a register is required to locate Ἢ 


the entry point of the procedure; register 15 is reserved for 
this use by the compiler. | 


NOENTREG Option 


The NOENTREG option specifies that no particular register may be 
relied on to locate the entry point on entry to the procedure, | 
and that that no particular register need be used in calls to the 
procedure, | 


Defaults. The  ENTREG and  NOENTREG options are ignored for 
internal procedures. 


RETREG Option > 


WD μονο 


The RETREG option specifies that register 14 contains the address 
of the return location on entry to the procedure. 


The NORETREG option specifies that register does not contain the 
address of the return location on entry to the procedure. 


‘Defaults. If neither RETREG nor NORETREG is specified, RETREG is 


tke default. 
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PARMREG Option 


SUUS μον patio: κο URP copie. 


* 


The PARMREG option specifies that register 1 is reserved to 
contain the address of the parameter list. 


NOPARMREG Option 
The NOPARMREG option indicates that there are no entry point 
parameters, . 


Defaults. If neither PARMREG nor NOPARMREG is specified, PARMREG 
is the default if the procedure has parameters, and NOPARMREG is 
the default if the procedure has no parameters. 


 SAWEREG Option 
The SAVEREG option indicates that register 13 contains the 
address of the calling procedures save area on entry to the 
procedure. 


The NOSAVEREG option indicates that register 13 does not contain 
the address of the calling procedure's save area on entry to the 
procedure, | 


Defaults. If neither SAVEREG nor NOSAVEREG is specified, SAVEREG 
is the default.. | 


Restrictions. . NOSAVEREG can be specified only on the PROCEDURE 
statement for an external statement, - 
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The AUTODATA option causes the compiler to obtain a dynamic save 
area of the specified size upon entry to a reentrant procedure.. 


ΠΕ ford e AUTODATA Option 


kaa MIU visinama WA vtr μον PRÉ ci MER iD "NEQNE cU uU NE qUb quM. qi iu M MN EM UD HMM MN tM RM MM MAD OK NM GR MM MUN ———— «νο si eae ei aims sik eh acai eee li A ES vitta 


AUTODATA E. ἘΠ 14 


number An integer — ing the size of the dynamic 
area in πη 


-—— — UD ptit NOH SUD OD (— i lee iss ahs bleating TONED. EER OD €— ais sani iwi eel a ls cn Lai lei: ee ial cba a "——— sees ag semen ee Nant eatin /— 


The NOAUTODATA option causes the compiler not to obtain a dynamic 
save area upon entry to a reentrant procedure, | 


Defaults. The default action is to provide a dynamic area large 


enough to contain the automatic variables defined within the 
external procedure, | | 


Restrictions. The AUTODATA and NOAUTODATA options can be 


specified only on the PROCEDURE statement for a reentrant, 
external procedure. . | 


The KEY option indicates that the procedure alters the protection 
key, It has no effect on the generated code, . 


Restrictions. The KEY option can be specified only on the 


PROCEDURE statement for an external procedure. 
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The ENTRY statement defines a secondary entry point for a 
procedure, There is no restriction on the number of secondary 
entry points. A CALL statement may invoke a procedure at a 
secondary entry point; if arguments are passed by the CALL, the 
associated parameters may be specified on the ENTRY statement,. 


General ἘΠΕ ENTRY οποια. 


ώς 3 larna τ { Ἄρη a P P dee ) 1 


— 


secondary entry point. Exactly one entryname 
must be specified. 


parm A variable name to be associated with the 
arguments appearing in CALL statements to this 


Ἶ 

| 

l 

B 

| 

p 

| 

| entryname Identifies the name to be assigned to this 
i 

! 

i 

! 

| 

a ee, 
b 


4 


ARGUMENTS AND PARAMETERS 


Parameters on an ENTRY statement must be unsubscripted, 
unqualified variable names, separated by commas. The number of 


parameters specified on an ENTRY statement need not be the same | 


as the number specified on the PROCEDURE statement for the 
surrounding procedure. If a variable name specified in the 


parameter list of an ENTRY statement is the same as a variable 


instances of the variable name must be in. the same position in 
the two lists. 


For a description of the relationship between arguments and 
parameters, see "The Procedure Statement." 


Defaults. Secondary entry points into the external procedure 
default to ENTRY, EXTERNAL, LOCAL; all other secondary entry 
points default to ENTRY, INTERNAL, LOCAL. | 


| name in the parameter list of the surrounding procedure, the two 


Y 
Eu 
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The END statement indicates the end of a procedure or the end of 
a DO group. When a procedure END statement is encountered 
during execution, control is returned to the calling  procedure.. 
When a DO group END statement is encountered, control proceeds 
according to the rules for the DO statement defining the DO. 
group, : | | 


εως. ομως, END Statement 


B 
| 


— — HÀ damen Harris AIV bU AUN UM PARI amare MB QR QM FEM BR HA ERU Hol FOU ARR ORA HOD E HN 


Um [debel] oi 


label τ Must be the name on the PROCEDURE or DO statement 
that the Bu? κε 


ANI Άν. — Air οκ "————————— "————— 


| 
| 


— 


An END statement is associated with the nearest preceding, 
unclosed PROCEDURE or DO statement. If a label follows the END, 
it must be on the associated statement. RL/S does not allow 
multiple closure of procedures or DO groups with a single END 
statement, . | | 
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THE CALL STATEMENT 


The CALL statement invokes an external or internal procedure. 
When a CALL statement is specified, the necessary linkage to the 
called procedure is provided by the compiler. An optional list 
of arguments may be specified to be passed to the called 
procedure, — 


| 
| 


General Format: CALL κακο ος 


CALL. entryname tU A arglist | 2 1 p SET € returnvar ο) d 3 


d CELLS ETD erba m λος. snes ntti ἁγίων Sete > 


entryname Label of a PROCEDURE statement or an ENTRY 
statement. 


arglist One or more arguments, separated by commas, | 


returnvar Name of variable into which the return code 
from tne τ". — is ΕΝ 


posce — — it ο ο κο ών νο ne seine inom Sei i ln sp a ae ss as obscene, 


——— 


ENTRY NAME 


The entry name specified on a CALL statement must correspond to 
the name on a PROCEDURE or ENTRY statement, It may be the name 
of an internal procedure of the calling procedure, or of an 
external procedure. Alternatively, it may be a variable name 
declared with the BASED and ENTRY attributes, in which case the 
pointer variable on which the name is based is assumed to contain 
the address of the entry name, 


An internal procedure may be invoked anis from its containing 
procedure or from another internal procedure at the same level in 
its containing procedure. An external procedure may be invoked 
from any procedure (including itself if it is reentrant).. 


The entry name does not have to be declared as ENTRY in the 
calling procedure. If the called name does not appear as the 
name of an internal procedure, the compiler will assume that the 
procedure is EXTERNAL, NONLOCAL, (For a detailed description of 
how to declare an entry name, refer to "The DECLARE Statement, ") 
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ARGUMENTS 


An argument may be constant, a variable, or a complex expression.. 
some examples of valid arguments are: 


ARRAY(3) 
TAB (M) 
(LIST(4)) 
ITEM (7,2:5) 


Restrict: . Passing a REGISTER variable as an argument will 
result in a warning message, and the value will be assigned to a 
temporary location. Passing a bit string as an argument that is 
not on a byte boundary will result in a warning message., 


How the Arg 


uments are Passed 


When arguments are included on a CALL statement, a parameter list 
is produced. Bach argument is assigned one word in the parameter 
list, and the address of the argument is inserted in that word. : 
Three kinds of addresses are inserted, depending on the type of 
the argument: 


The actual address of a variable. 
The address of storage assigned for a constant. | 
The address of a generated temporary variable. | 


Variables. The actual address of a single variable in an 
argument list is inserted in the parameter list. The variable 
may be subscripted or substringed, or explicitly or implicitly 
pointer-qualified. The byte address of the first bit of a bit 
Variable will be used if the variable is not aligned on a byte 
boundary. — | 


Constants.. The address of the storage area assigned to a 
constant in an argument list is inserted in the parameter list. 
This argument should not be modified by the called prpcedure.. 


Complex Expressions. An expression in an argument list is 
evaluated and the result is assigned to a generated temporary 
(fullword) variable. The address of the temporary variable is 
inserted in the parameter list., A REGISTER variable is treated 
as an expression, | 


1 D 
3 cr cu 
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CAUTION; The compiler may reduce certain expressions such 

| as 315} to simple constants, rather than treating 
them as expressions and assigning a temporary 
variable. ΤΕ evaluation and assignment of an 
argument to a temporary variable is desired, the 
EVAL built-in function may be used, . 


ARGUMENTS AND PARAMETERS 


Mr Aaa FRAT HARE ADU QUU ANI ^UE 


There is a correspondence between the arguments on a CALL 
Statement and the parameters on the PROCEDURE or ENTRY statement 
invoked.: Arguments are associated with parameters in. the order 
in which they appear; the first argument is associated with the 
first parameter, the second argument with the second parameter, 
and so on, . 


Arquments are declared in the calling procedure; parameters are 
declared in the called procedure, The data type attributes 
declared for an argument should be the same attributes declared 
for the corresponding parameter in the called procedure. . 


Modifying a Parameter 


Assigning a value to a parameter results in the ο ο το of 
the corresponding argument. This has no effect on the calling 
procedure, unless the actual address of the argument was inserted 
in the parameter list, or the argument was a constant. 


A parameter whose corresponding argument is a constant should not 
be modified since this could cause üRpERSAEOEONES results in. the 
callinq procedure.. 


Control is normally returned to the statement immediately 
following the CALL statement. Control is returned when either a 
RETURN statement or the END statement of the called procedure is 
encountered. Control may be returned to some other point within 
the calling procedure by coding the TO option of the RETURN 
statement, - 


RETURN OF A VALUE FROM THE. CALLED PROCEDURE 


The called procedure may return an arithmetic value in register 
15. . This value will be stored in the SrnCHENOS variable if the 
SET option is used. 
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The RETURN statement is a means of returning control from the 
called procedure to the calling procedure.. (An END statement 
acts as a return to the calling procedure when it is encountered 
during execution.) The RETURN statement may be used to return 
control to the statement following the CALL statement, or to some 
other labeled statement in the calling procedure. It may also be 
used to return a value to the calling procedure, 


General Format: RETURN Statement 


RETURN [ CODE (value) ][ TO returnpoint 1 ; 


value Value to be returned to the calling 
procedure as a return code,. 


returnpoint Variable or label that locates the statement 
to which control is returned. 


| 
| 


UT A RETURN POINT 


If no return point is specified on the RETURN statement, control 
is returned to the statement following the CALL statement in the 
calling procedure. . 


RETURN WITH A RETURN POINT 


If control is to be returned to a statement other than the 
statement following the CALL statement, the word TO and a return 
point variable must appear on the RETURN statement., 


The return point variable specified with the TO option must have 
a data type attribute of LABEL or POINTEB, and may be subscripted 
or pointer-qualified. The compiler-generated epilogue code 
assumes the return point specified is in the calling procedure. . 
Some examples are: 
RETURN TO THERE; 


RETURN TO PTR -> RTNLAB; 
RETURN TO LABELS(I); 
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RETURNING A VALUE TO THE CALLING PROCEDURE 


An arithmetic value may be returned to the calling procedure, by 
specifying the word CODE and a value in parentheses. This value 
is returned to the calling procedure in register 15,: 


The value in parentheses may be a variable, a constant, or a 
complex expression, Some examples are: | 


RETURN CODE(12); 
RETURN CODE(*'80'X); 
RETURN CODE(X#4); . 
RETURN CODE (ADDB(A)); 


[ 
E 
|. 
L2 
b 
! 
P. 
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THE E DO. STATEMENT 


The DO statement is used to identify a group of Statements, 
called a DO group, that are treated as a single unit. The DO 
group begins with a DO statement and includes all statements 
through the END statement that terminates the group. DO groups 
are categorized as non-looping, which are executed once, looping, 
which may be executed repeatedly, or CASE statements, : 


seneral Pormat: DO STATEMENT 


[iteration] [termination] 
DO 
AAST Ano RE. 


———mÓ UM QUIE eis OCA σαν νι in UU UI ADU A D i o —M, 


m——  PP—X 


| iteration As defined below. . 
termination As defined below, 


|. caseval May be a constant, a variable, or an 
expression specifying the case number 
(relative to zero) of the Statement to be 
τος 


sciences chi il is si iiss i san eo lel “i elon sian tiat coca n RM S 


lil 
i 
|: 


eee Format: ο ο 


ου... ἆ sis a is Wa! se so sei stk soda eh €—— seit 


| increment 
COBEEORYSE S> SLATE LOBE q } ][ TO end ] 
decrement 


€€— 


controlvar Control variable that is initialized with a 
starting value in the DO statement, 


start May be a constant, a variable, or an expression.. 
increment May be a constant, a variable, or an expression... 


decrement May be a constant, a variable, or an expression, 
preceded by an explicit minus sign.. 


end Exod be a constant, a ΗΕ or an PIPERS ON 
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P JU SRUSNONUSUN NUNGRUNOUGRNANEUOSTNSISSNE SIS ANNE 
| General Format: tOSBIDACIOR: E 
EE ο ο ο απ SENE ο. Λ.Α Φις --- 
! { 
Γ᾽ { }  relexpr rc 
| UNTIL zx 
p M uc ud a ος ο - zi 
ν᾿ " 
| relexpr Any relational expression that is valid in an | 
zc IF statement. | 
Ὁ Ὁ. A ος εν ο ο ον UR ο st a LR ΤΕ. 


 NON-LOOPING DO GROUPS 


A non-looping DO group is executed at most once, A WHILE 


condition may be used to conditionally control execution of the 
DO group; if the WHILE condition is not satisfied, the DO group 
is not executed. 


There are three forms of non-looping DO groups. . These are 
identified by options that may appear on the DO statement, 


The first form is always executed exactly onces This 
form is written as: 


DOs 


The second form is executed exactly once after 
assigning the start value to the control variable. . 
This form is written as: 


DO controlvar - start : 


The third form uses the WHILE — to determine 
whether the DO group should be executed. If the WHILE 
condition is satisfied, the DO group is executed once; 
if the WHILE condition is not satisfied, the DO group 
is not executed. This form is written as: 


DO controlvar = start WHILE relexpr ; 
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— JO GROUPS 


A looping DO group is one that may be executed more than. once.. 
There are several forms of the DO statement that cause looping; 
the different forms correspond to the combinations of options 
allowed in the DO statement, : 


Certain information must be included with the options to provide 
looping control for the DO group. The value specified with TO, 
and the condition specified with WHILE or UNTIL, control 
termination of the loop. If either BY or TO is specified, there 
must be control variable initialization and the other option may 
be specified, 


troi L ig DO Grou : The flow chart below. 

shod nov he Tafort on TT with the DO statement options 
is used in controlling execution of looping DO groups.. Steps 2, 
3 and 5 provide testing control for exit from the loop. Steps 1, 
2 and 6 use the control variable. Each of the steps is 
associated with one of the following options: 

Step 1: start value assignment 

Step 2: TO option 

Step 3: WHILE option 

Step 4: Execution of the DO group 

Step 5: UNTIL option 


Step 6: BY option 
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Control Variable 


The control variable must be an arithmetic, pointer, or string 
variable of one to four bytes. It cannot be subscripted or 
explicitly pointer-qualified.. The control variable may be 
referenced within the DO group. However, if it is modified 
within the DO group, the modified value is used in subsequent 
tests to determine the continued execution of the DO group». 


If only the start value is specified on the DO statement, that 
value is assigned to the control variable, and the DO group is 
executed once.. If a WHILE expression is also specified, the 
control variable is initialized, and the DO group is executed 
once, provided the WHILE condition is true.. 


Upon exit from the DO group, the control variable retains the 
value it had at the termination of the loop. If no looping 
occurred, the control variable equals the start value assigned to 
it. : | l 


Asso: SHOR ολο RFE ER 


The start value may be any constant, variable, or complex 
expression. The start value is assigned as the initial value of 
the control variable each time the DO statement is encountered 
during program execution, | 


ΒΥ. value 


The BY value may be any constant, variable, or complex 
expression. The control variable is incremented or decremented 
by the BY value at the end of each iteration, based on the first 
character of the BY value. If the first character is anything 
except a minus sign, looping continues until the control variable 
is greater than the TO value, If the first character is a minus 
Sign, looping continues until the control value is less than the 
TO value. <Any variables used with the BY value should not be 
modified within the DO group. Modifying these variables may have 
an unpredictable effect on the incrementing or decrementing of 
the control variable. | EN 


Defaults. If no BY value is specified, a value of 1 is assumed, 


D 
MÀ 
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TO Valu 


.Yal 


The TO vaiue may be any constant, variable, or complex 
expression, Looping continues until the control variable is 
greater than or less than the TO value, depending on whether the 
BY value is used to increment or decrement the control variable... 
If a TO value is not specified, the loop is potentially infinite. 
A WHILE or UNTIL option may be used in this case to provide exit 
control. Any variable used in the TO expression must not be 
modified within the DO group.. Modifying the variable may have an 
unpredictable effect on the comparison of the control variable 
and the TO value. 


BILE Value 


The WHILE condition may be any relational expression and is 
tested before each iteration of the DO group. If the result of 
the relational expression is true, the DO group is executed; if 
it is false, the DO group is not executed, and no other 
iterations are performed. If both a TO value and a WHILE 
condition are indicated, the TO value comparison is made before 
the WHILE condition is tested. | | 


Value — 


νο. ης VOE Aa 


The UNTIL condition may be any relational expression and is 
tested after each iteration of the DO group. If the result of 
the relational expression is false, the control variable is 
incremented and tested for the next iteration; if it is true, no 
further iterations are performed. Note that an UNTIL value has 
no effect on a non-iterative DO group, since it is tested only 
after the DO group is executed.. | 
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. CASE STATEMENT 


The CASE statement is used to select for execution one of the 
statements (called cases) within the DO group. After execution 
of the selected case, control passes to the statement following 
the end of the CASE statement unless the selected case causes a 
transfer et control elsewhere, 


CASE Value 


The CASE value may be any constant, variable, or complex 
expression. If the CASE value is less than 0 or greater than the 
number of cases in the CASE statement, control passes immediately 
to the statement following the end of the CASE statement and πο 
case is executed. Otherwise, the case whose case number 
(relative to 0) is equal to the CASE value is executed, 


Each case of a CASE statement must be an executable statement 
(other than. an END statement). PROCEDURE, ENTRY, DECLARE, . 
RESPECIFY, GENERATE DATA, and compiler control statements are not 
treated as cases within the CASE statement. A sequence of 
statements can be combined into a single case by grouping them 
with a DO statement. For example: 


DO CASE I; | 
DECLARE Q FIXED; /* NOT A CASE */ 
; /* CASE 0 - A NULL STATEMENT */ 
RESPECIFY ... | /* NOT À CASE */ 
X-Y; /* CASE 1 */ 
X22; /* CASR 2 */ 
DO; /* CASE 3 - A DO GROUP */ 


END; 
X-Y*2; /* CASE 4 */ 
GOTO CASES5LOC; | /* CASE 5 - TRANSFERS CONTROL */ 
GENERATE DATA; /* NOT A CASE */ 

DATA DC F* 100! 
QENDGEN 
GENERATE CODE /* CASE 6 */ 

END; 


Restrictions. CASE statements may only be nested within each. 


other to a maximum depth of 15. This limit, however, does 
include the nesting of other types of DO statements with CASE 
statements, ` | | 
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DO groups may be nested within other DO groups to any arbitrary 
depth; however, CASE statements may be nested within each other 
only to a maximum depth of 15. . Each DO group is executed the 
specified number of times each time it is encountered during 
program execution, 


LOOP10: DO I=1 TO 10; /* EXECUTE LOOP 10 TIMES */ 
10085: | ΡΟ J=1 TO 5; /* EXECUTE LOOP 5 TIMES */ 
A (I,J) =0; 
END LOOP5; /* END OF LOOP ON J */ 
END LOOP10; /* END OF LOOP ON I */ 


LOOP10 is executed 10 times. : 10055 is executed 5 times for each 
iteration of LOOP10, or a total of 50 times.. ! 
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The EXITLOOP and NEXTLOOP statements provide a structured way to 
exit or repeat a DO group. These statements are valid within in 
any form of DO group. However, these statements can be used to 
refer only to the immediate DO group in which they appear. 


| 
i i pie Format: _EXETLOOP Statement 


1 AH ην NG NE TON "UAR AND "————"— — ο ο ai Fs MEG NR μον ο λα όλος tn clase se ο μμ 


i | 
f; | EXITLOCP 3 
{ 
l 


The EXITLOOP statement causes a branch to the statement following 
the DO group in which the EXITLOOP statement appears. ` 


| General Format:  NEXTLOOP statement 


NEXTLOOP ; 


dmi aunt M iim: etl σου quiim see: n———————— ———————————————— κ ο use cps wu lk sais esa i asi 


The NEXTLOOP statement causes a branch to the statement which is 
the beginning of the next iteration of the DO group. For 
non-looping DO groups or CASE statements the NEXTLOOP statement 
causes a branch to the statement following the DO group in which 
the NEXTLOOP statement appears. 


Restrictions». The EXITLOOP and NEXTLOOP ——" appear 
within a DO group. | | 
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THE IF STATEMENT 


The IF statement is used to specify conditional statement 
execution, and must always include a THEN clause.  Optionally, an 
ELSE clause may follow the THEN clause, | 


If the relational expression in the IF statement is true, the 
THEN clause is executed; if it is false, the ELSE clause (or in 
the absense of a ELSE clause, the next sequential instruction 
following the THEN clause) is executed.. 


| 
| 


General Format: IF Statement 


ini iim ee ainsi ΒΝ SA SIA. R λα "—————— m— RR tine manne mm eRe 


IF relexpr THEN clause [ ELSE clause ] 
relexpr Any relational expression. 


| clause A single statement, or group of statements 
e Do ge cae) that is reared as a ΓΕ anit.. 


| 


--- 


"——— nm—————— —— €—Á—— 


THEN CLAUSE 


SERED SELIG REG AER. SURFER REUS US TOES CRI SED πες. 


The THEN clause immediately follows the relational expression, 
and is executed only if the relation is true. The THEN clause 
may be any executable statement (other than an END statement), or 
it may be a group of statements (a DO group).. The THEN clause 
may also be another IF statement. | | 


The ELSE clause appears after the THEN clause, and is executed 
only if the relation is false. The ELSE clause may be any 
executable statement (other than an END statement), or it may be 
a group of statements (a DO group). The ELSE clause may also be 
another IF statement,. E | 


 NESTED IF 
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STATEMENTS 


Feet ROR AON ies το NNNM: 


When an IF statement appears in a THEN or ELSE clause, it is 
called a nested IF statement. Nested IF statements are coded 
exactly like all other IF statements. IF statements may be 
nested to any arbitrary depth. | 


Within a nest of IF statements, the innermost ELSE clause is 
associated with the innermost THEN clause; the next innermost 
ELSE clause is associated with the next innermost THEN clause, . 
and so on. If there is a possibility that an incorrect 
association may be made because an IF has a THEN clause but does 
not require an ELSE clause, a null ELSE clause (i.9., ELSE;) may 
be inserted following the THEN clause,. 
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THE GOTO STATEMENT 


VEMM ο RNR REELED WOMEN 


The GOTO statement is a means of transferring control to a named 
(labeled) destination within a procedure... The GOTO statement 
cannot be used to cross procedure boundaries. — 


oe Format: BORO ο.” 


He. — een Κων ελ unb ttp ΗΝ SOREN ARID AA: E-TYPE, όλον 


"- Mb αν cap νο μη qal ο me ERR o mm 


SUE RUNDE UA AMD. QUE MIO CURA MU UR nip MO iili inicie ui tmt ERU S = 


GOTO 
) destination ; 
GO TO : 


destination Yariable or label that located the statement 
TO which ωρα. PENA Dd νο τα 


E 
i 


me Ud URN «ιο μάθε Vt) —— — tan: apat OO ae TERI HORE “ὀστοῦν ea ssi is siete MÀ un ui nei i ge el ei hee ici op: 


Destination Variable 


The destination variable specified on a GOTO statement may be any 
variable that has the data type attribute LABEL or POINTER. It 


may be subscripted and/or explicitly pointer-qualified. 
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The ALLOCATE and FREE statements can be used to dynamically 
obtain and release storage for BASED variables. The storage is 
obtained from the same subpool and hierarchy Specified in the 0s 
option on the PROCEDURE statement for the external procedure. If 
the OS option was not specified, storage is obtained from the 
default subpool and hierarchy for the 0S option. The ALLOCATE 


and FREE statements issue a GETMAIN and  FREEMAIN macro 


respectively. 


1 anes Format: dde κας] 


ALLOCATE varname [ SET { ptrvar ) 1] - 


varname Name of the BASED variable for which storage is 
to be allocated. 

ptrvar Name of the variable into which the address of 
the obtained storage is to be stored. 


| 


The ALLOCATE statement issues a GETMAIN macro for enough storage 
to hold a copy the BASED variable. If the SET option is not 
specified, the address of the obtained storage is stored in. the 


variable on which the BASED variable is currently based. 


Otherwise, the address of the obtained storage is stored in the 
specified pointer variable. 


Restrictions. The ALLOCATE statement can only be used with BASED 
variables that do not have indeterminate length. In addition, if 
the BASED variable is dimensioned, it cannot have been declared 
with an ον κα leftmost dimension using the asterisk (*) 
notation. | | 
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1 οτι pormat: FREE statement 

E AES AE κα EAE A ο ο τν ο νο νο ο ο ο το - 
i FREE varname [ BASED { ptrvar ) ] - 

i 

| varname Name of the BASED variable for which storage is 

b to be freed. 

| 

| ptrvar Name of the variable from which the address of 

{ the storage to be freed is to be obtained.. 
Ὁ ----υ-ᾱ- E N ----- SS Shee eit PULO Ru 


The FREE statement issues a FREEMAIN macro for enough storage to 
hold a copy of the BASED variable. If the BASED option is not 
specified, the address of the storage to be freed is obtained 
from the variable on which the BASED variable is currently based. 
Otherwise, the address of the storage to be freed is obtained 
from the ΗΕ pointer variable. 


 Bestrictions. The FREE statement can only be used with BASED 
variables that do not have indeterminate length. In addition, if 
the BASED variable is dimensioned, it cannot have been declared 
With an indeterminate leftmost dimension using the asterisk (*) 


notation., 


j 
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The ASSERTION statement provides a simple test facility within 
the structure of RL/S. Through the use of the ASSERTIONS 
compiler option and the ASSERTIONS statement, the compiler can be 
instructed to treat ASSERTION statements as comments ος to 
compile them into tests of relational expressions. - 


eres Pormat: ο το etatement 


— —— (RÀ 


αμ aea yaaa maien vona aea nee ite tees e ΟΦ 


ASSERTION relexpr ; 


‘sa ‘ese ss IER SN soe MA Se Se SE — μμ Sa HAE NS ARP ORI AA NI pe ' 3 


relexpr Any relational expression.. 


| 
a 
| i 


ssc sli tai ia a pectus als sl pue seas ος λος lacus sabia 


The ASSERTION statement is treated as a comment (no code is 
generated) if the NOASSERTIONS compiler option was specified or 
an ASSERTIONS OFF statement was previously encountered (with. no 
intervening ASSERTIONS ON statement). Otherwise, the ASSERTION 
statement is compiled into a test of the specified relational 
expression... If the relational expression is true, control passes 
to the next executable statement; if the relational expression is 
false, an ABEND macro is issued with an abend code of the 
statement number of the ASSERTION statement, . | 
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The null statement is written as a single semicolon; no code is 
generated by the compiler. The null statement is most often used 
to cause proper matching of THEN or ELSE clauses in a set of 
nested IF statements, It is used with the keyword THEN when no 
action 45 to be taken if the relational expression is true, and 
with the keyword ELSE when no action is to be taken if the 
relational expression is false. . 


For example: 


IF A-B THEN /* If A=B and C-D then X=Y */ 
IF C-D THEN X=Y; | 
ELSE; "E 

ELSE X-2; /* IE Awa=B then ΧΞ2 */ 


ας 
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The GENERATE statement is used to insert  user-written assembler 


language code into the compiler-generated code. There are two 


forms of the GENERATE statement: the simple GENERATE and the 
block GENERATE. The simple GENERATE inserts a single assembler 
language statement, and the block GENERATE inserts multiple 
assembler lanquage statements, . Unlike most other  BL/S 
statements, a GENERATE statement may be placed outside an 
external procedure,. 


) 


| 
to General Format: GENERATE Statement 


CODE . | ( asmstmt ) ; 
GENERATE [ 1 [option]... { | } 
DATA : ' TOCK à ENDGEN Ε 


οσον S 


€————— Ani. Νας ο SRI ΜΑΗ) MAE SOMME ACUTE TETROEN NSN ΑΗ rr) EIER: --- —— — μμ. 


placed into the compiler-generated code or data. | - 


asmblock A block of assembler language statements to be o 
placed into the Compa} ch generates code or data. f- 


option One of fourteen options that may be specified to 
describe to the compiler the PECK eRe done 


| 
| 
l 
| 
i 
| 
| 
i 
{ - 
-. asmstmt A single assembler language statement to be bc 
i 
| 
! 
| 
i 
| 
| 
in the assembler texte | 
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SIMPLE GENERATE FORM 


niin mme 


The simple GENERATE form allows a single assembler language 


Statement to be placed inline with the compiler-generated code. 


The assembler language text does not have to appear on. the same 
input line as the keyword GENERATE, but it must appear ona 
single input line. | | 


To avoid a misinterpretation of parentheses, all options must 
appear before the assembler language text. The start of the 
assembler language text is recognized by the left parenthesis; 
the end of the text is recognized by the last right parenthesis 
on the line. The text in between is inserted in the output 
record. For example: | 


GENERATE REFS(R,S) 
(UNPK  R,S); 
Or 
GENERATE REFS(B,S) (UNPK R,S); 


The assembler language text is placed in an output record 
starting in column 10. Any labels on the GENERATE statement will 
be placed in the compiler-qenerated code before the assembler 
language statement is processed. | { 


The block form of GENERATE allows one or more assembler language 
Statements to be placed inline with the compiler-generated code. 
The assembier language statements follow the GENERATE statement 
and must be placed one to a line; the end of the block GENERATE 
is indicated by a line containing only the sequence @ENDGEN. — 
For example: | | | | | | 


GENERATE DATA DEFS(BUFFERI,BUFPFPERO); 
BUFFERI DC CL80* ' 
BUFFERO DC CL133' ' 

Q ENDGEN 


The block form of the GENERATE statement is recognized by the 
absence of simple GENERATE text before the semicolon. Any 
information after the semi-colon on a block GENERATE statement is 
ignored.. | 


Columns 1 through 72 of each assembler language statement 
following the GENERATE are placed in columns 1 through 72 of an 
output record. Sequence numbers are produced by the compiler in 
columns 73 through 80. Any labels on the GENERATE statement will 


language statement is processed. . 
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CODE OPTION 


PORE ORD αλα ACTES Αν. 


The CODE option specifies that the GENERATE statement contains 
assembler language statements that are to be placed directly 
inline with the compiler-generated code. The compiler resumes 
normal processing when the @®@ENDGEN sequence is encountered. If 


some of the assembler language statements are used to define 


data, assembler code that causes a branch around the data 
definitions must be included, . 


: DATA OPTION - 


OLD ETE LR: CSE AEE MORD ERE 


The DATA option specifies that the GENERATE statement contains 
assembler language statements that define data. If the external 
procedure is reentrant, these statements are placed in. the 
dynamic storage area after normal AUTOMATIC data; otherwise, they 


are placed after all STATIC LOCAL data generated by the compiler. 


Any variables or labels that are defined in. assembler language 
text following a GENERATE statement are internal to the 


containing procedure, but are not automatically known to the 


compiler. They are not assigned storage by the compiler. They 
may be made known to the compiler through use of the DEFS option 


on the GENERATE statement and/or by declaring them with the 


GENERATED attribute. 


Defaults. If neither CODE nor DATA is specified, CODE is 


49 ORIS ων AUDI RG ORIEL NER 


assumed. 


‘OTHER OPTIONS 


dy SATS Se 


Additional options may be specified in the following forms: | 


DEFS (var [,var]e.. ) 
NODEFS 

EXIT 

NOEKIT | 

FLOWS {label [,label]... ) 
NOFLOWS 

SEQFLOW 

NOSEQFLOWS 

SETS (var [,var]e»» ) 
NOSETS 

REFS (var [,var]... ) 
NOREFS 


where var is the name of a variable and label is the name of a 


label used in the assembler language code defined by the GENERATE 
statement, . 
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The interpretation of these options is shown in the table below., 


DEFS Specifies those variables that are defined in 
| the assembler language text. If a variable is 
not defined in an RL/S DECLARE statement, it is 
given the FIXED BINARY (31) and GENERATED 
attributes. . | 


NODEFS Indicates that no variable definitions appear in 
the assembler language tert.. 


EXIT Indicates that the program flow of control may 
exit the current procedure from the assembler 
language text. 


NOEXIT Indicates that the program flow of control will 
not exit the current procedure from the assembler 
language text. | 


FLOWS Specifies those labels known to the compiler that 
are referenced in the assembler language text.. 


{ 
| 
| 
i 
! 
! 
! 
i 
| 
d 
| 
| 
1 
| 
l 
j 
| 
| 
! 
i 
NOFLOWS Indicates that no label references appear in the | 
assembler language text. | ag 

SEQFLOW Indicates that the program flow of control will. 
! 

| 

{ 

i 

| 

| 

l 

| 

| 

l 

! 

1 

| 

| 

d 
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E 
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continue simply through the assembler language 
text. : 


NOSEQFLOW Indicates that the program flow of control will 
not continue simply through the assembler language 
text. 


SETS Specifies those variables known to the compiler 
that are modified in the assembler language text. 


NOSETS Indicates that no variables are modified in the 
assembler language text. 


REFS Specifies those variables known to the compiler 
that are referenced in the assembler language text. 


NOREFS Indicates that no variabie references appear in 
the assembler beng age bu 


MEM MCN ae ο κοκ μμ qm imr ccm mo ism om ολων UT NS HIN Ie A P em apto um ΜΗΝ ΜΝ ; ] 


— SUID AEEA ROHN “ΝΣ ΓΗ; ΜΗΝ ήν η ——— PrÓ—ÓG— nan e 


R- 1555/11 The Rand Computation Center: | Page 117 
RL/S Language Reference Manual 


RL/S contains a number of statements whose function is to control 
the compiler's processing of source programs. These statements 
have the syntactical appearance of other RL/S statements but do 
not cause the compiler to generate any assembler language output,. 
In the following examples the character "à" is used as the 
control character which preceeds all control statements. This 
Character may be changed using the CONCHAR{ ) compiler option, 
which is described under "Compiler Options," 


@®ANNOTATE ON; 
QANNOTATE OFF; 


The ANNOTATE control statement provides a way to 
dynamically alter the value of the ANNOTATE compiler - 
option. Normally, it is used to prevent the compiler 
from placing large data structures in the assembler 
lanquage output as comments. | | 


ASSERTIONS ON; 
@ASSERTIONS OFF; 


The ASSERTIONS control statement provides a way to 
dynamically alter the value of the ASSERTIONS compiler 
option. It may be used to selectively control the 
compilation of ASSERTION statements. . 


@ENDGEN 
DENDGEN 9 


The ENDGEN control statement is used to indicate the 
end of a block GENERATE statement. For more 
information, see "The GENERATE Statement.” 


QEJECI; 


The EJECT control statement causes the compiler to 
begin a new page in the source program listing. It 
may be used in conjunction with and independently of 
any carriage control specified via the MARGINS 
compiler option. 
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INCLUDE ddname; 
@INCLUDE ddname (membername) ; 


The INCLUDE control statement causes the compiler to 
temporarily read input source statements from a file 
other than the standard  SYSIN file. The ddname 
parameter identifies the JCL DD card which defines the 
required data set. If the membername option. is 
specified, then the file must be a partitioned data 
set and only the indicated member is read; otherwise, 
the file must be a sequential data set and is read in 
its entirety.. INCLUDE Statements may be nested to a 
depth of five levels.: 


@LIST ON; 
ƏLIST OFF; 


The LIST control statement provides a way to 
dynamically alter the value of the SOURCE compiler 
option., It may be used to uaa | M an RL/S 
source statement listing.. 


@PROCESS; 
@PROCESS 'optionstring'; 


The PROCESS control statement initiates a separate 
compilation Within a single invocation of the 
compiler. Each such separate compilation is assumed 
to be totally independent of all other compilations 
done at the same time. The optionstring allows one to 
the current compilation. If no optionstring is 
specified, the default compiler options are used; if 
the options specified for the previous compilation are 
to be used then the SAME option may be specified. . 


QSUBTITLE 'subtitlestring'; 


The SUBTITLE control statement causes the subtitle 
field that is printed at the top of each page of the 
source listing to be changed to the subtitlestring 
specified and the source listing to be resumed on a 
new page. No change is made in the title field. . The 
subtitle field is set to blanks at the start of each 
compilation.. | 
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@TITLE 'titlestring'!; 
@TITLE 'titlestring','subtitlestring'; 


Page 


The TITLE control statement causes the title and 
subtitle fields that are printed at the top of each 
page of the source listing to be changed to the 
titlestring and subtitlestring specified, and the 
source listing to be resumed on a new page. ΤΕ the 
subtitlestring is not specified then the subtitle 
field is set to blank. The title and subtitle fields 


are set to blanks at the start of each compilation. 


119 
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COMPILING AN RL/S PROGRAM 


JOB CONTROL LANGUAGE (JCL) 


The following JCL statements may be used to invoke the  RL/S 
compiler. The compiler output will be placed in the SYSPUNCH 
data set. It may be passed to the assembler by combining these 
statements with those normally used to invoke the assembler, and 
pointing the assembler's input DD-card to the RL/S SYSPUNCH data 
set.. If the $360 compiler option is specified (see below), the 
05/360  (F) Assembler may be used: for S370, the OS/VS-VM/370 
Assembler is required... | | 


//RLS EXEC PGM=RLS, PARM='options? | 

//5TEPLIB DD DSN=SYS1.RLSLIB, DISP=SHR . 

fj DD DSN=SYS1.PLITRANS, DISP=SHR > 

//SYSPRINT DD SYSOUT-A 

//SYSPUNCH DD SYSOUT=B 

//5SYSUT1 DD DSN- EESYSUT 1, UNIT=SYSDA,SPACE=(TRK, (10, 10)) 
//SYSUT2 DD DSN-55SYSUT2,UNIT-SYSDA,SPACE- (TRE, (5,5)) 
//SXSUT3 DD DSN-55SYSUT3,UNIT-SYSSQ,SPACE-(TRK, (5,5)) 
// του τα DD DSN=GESYSUT4, UNIT=SYSDA,SPACE=(TRK, (53) } 
//5YSUT5 DD DSN-855£SYSUT5,UNIT-SYSSQ,SPACE- (TRK, (5,5)) 
//SYSUT6 DD DSN-55SYSUT6,UNIT-SYSSQ,SPACE- (TRK,(10,10)) 
//TABLEIN DD DSN=SYS1.RLSTABLS, DISP=SHR 

//SYSIN DD κα 

<-- {Insert BL/S source statements here.) | 
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The RL/S compiler recognizes a set of options that may be used to 
control the manner in which a source program is processed. These 
options are specified either in the PARM field of the JCL used to 
invoke the compiler, or on a PROCESS control statement when 
multiple compilations are requested, The options arez: 


ADEFS 
NOADEFS 


The ADEFS option causes all component variables that 
are defined during a compilation to also be defined in 
the generated assembler language output. If NOADEFS 
is specified, only those component variables that are 
actually referenced (not simply declared) are passed 
on to the assembler. . | 

Default: NOADEFS 


ANNOTATE 
NOANNOT ATE 


The ANNOTATE option determines whether RL/S source 
statements are placed in the generated assembler 
language output as comments. . This option may also be 
dynamically controlled using the ANNOTATE control 
statement, . 

Default: ANNOTATE 


ASSERTIONS 
NOASSERTIONS 


The ASSERTIONS option determines whether ASSERTION 
statements are compiled or treated as comments. This 
option may also be controlled using the ASSERTIONS 
control statement. 

Default: NOASSERTIONS 
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COMPILE 
NOCOMPILE (5) 
NOCOMPILE (5) 
NOCOMPILE(W) 
NOCOMPILE 


These options indicate the circumstances under which 
the compiler is to attempt code generation. The 
COMPILE option indicates that code generation is to be 
attempted whenever possible--i.e., unless severe or 
terminal errors are encountered. This is equivalent 
to the option NOCOMPILE(S). The  NOCOMPILE(E) option. 
indicates that code generation should not be attempted 
if errors of severity E (error) or greater occur... 
Similarly, the  NOCOMPILE(W) options inhibits code 
generation if errors of severity W (Warning) occur... 
The NOCOMPILE option unconditionally inhibits code 
generation. | 

Default: COMPILE 


CONCHAR ( ) 


The CONCHAR option may be used to specify the 
Character that precedes ali compiler control. 
Statements, | 

Default: CONCHAR (23) 


DECK 
NODECK 


The DECK option determines whether the compiler will 
produce an assembler language output file.. 
Default: DECK | | 


FLAG (I) 
FLAG (9) 
FLAG (E) 
FLAG (S) 


The FLAG option specifies the minimum severity of 
error for which a message is to be printed... The 
parenthesized character I causes alil. messages to be 
printed. The characters W, E, or 5 indicate that 
| printing is to occur only for messages whose severity 
level is at least W (warning), BE (error), ος 5 
(severe), respectively.. | 
Default: FLAG(I) 
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MACHINE (S360) 
MACHINE (S370) 


The S360 option indicates that the code produced by 
the compiler will be executed on a System/360. The 
$370 option indicates that the code will be executed 
on a System/370.. The IBM 05/360 (PF) Assembler may be 
used for $360, while the OS/VS-¥M/370 Assembler is 
required for S370, : 

Default: MACHINE (S370) 


MARGINS (leftmagin,rightmargin) 
MARGINS (leftmargin, rightmargin,carriagecontrol) 


The MARGINS option defines those portions of  BL/S 
source statements to be processed by the compiler. . 
"leftmargin" specifies the Starting column. and 
"rightmargin" specifies the ending column for source 
statements ("leftmargin" must not © exceed 
"rightmargin"). "Carriagecontrol", if specified, 
defines the position within input statements that 
contains ASA control characters for source listing 
formatting; it must die outside the starting and 
ending columns, | 

Default: MARGINS(2, 72, 1) 


SEQNUM(start,increment) 


The SEQNUM option specifies the starting number and 
incremental value for the sequence numbers placed in 
columns 73-80 of the assembler language output 
produced by the compiler. | 
Default:  SEQNUM (00000010, 10) 


SOURCE 
NOSOURCE 


The SOURCE option determines whether an RL/S source 
statement listing is to be produced, This option may 
also be ΣΠΆΘΗ controlled by the LIST control 
statement,. 

Default: SOURCE 
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SAME 


The SAME option may only be specified on the PROCESS 
control statement and indicates to the compiler that 
the same options used in the previous compilation are 
to remain in effect for the current compilation.. 


XREF (LINE) 
XR EF (NUMBER) 
XREF (NUM) 

XREF (STATEMENT) 
XREP (STMT) 


The XREF option determines whether cross-reference 
information is to be provided using source listing 
line numbers or RL/S statement numbers. LINE, NUMBER, 
and NUM indicate source listing numbers should be 
used: STATEMENT and STMT indicate RL/S statement 
numbers should be used, | 
Default: XREF (LINE) 
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Appendix A 


DEFAULT AND CONFLICTING ATTRIBUTES 


The compiler assigns default attributes to all names that do not 
appear in DECLARE statements, and to any declared names whose 
attributes are incomplete. The attributes assigned are 
determined by the contexts in which a name is used, 


A name that appears in a DECLARE statement with. 
incomplete attributes, or in DEFS list of a GENERATE 
statement: 

FIXED BINARY (31) 

STATIC LOCAL 

BOUNDARY (WORD) 

INTERNAL | 


A name that is used as the object of a CALL statement: 
ENTRY. 
NONLOCAL 
EXTERNAL 


A name that is a destination of a GO TO or RETURN TO 
Statement, is used as a label, or appears in a FLOWS 
list of a GENERATE statement: | 
LABEL 
INTERNAL 


A name that is used as a label- on a PROCEDURE or ENTRY 
statement: 

ENTRY 

INTERNAL 


A name that appears in parentheses following the word 
BASED in a DECLARE or RESPECIFY statement: 

POINTER (24) 

STATIC LOCAL 

BOUNDARY (WORD, 2) 

INTERNAL 


A name that is used as a parameter: 
FIXED BINARY (31) 
parameter 
BOUNDARY (WORD) 
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Certain exceptions to these defaults are given below: 


In a REENTRANT procedure, all variables that would 
normally default to STATIC LOCAL become AUTOMATIC 
instead, . | | | 


All variables declared EXTERNAL are also assigned the 
STATIC NONLOCAL attribute,. | 


All variables declared with the INITIAL attribute are 
also assigned the STATIC LOCAL attribute,. 


All variables declared NONLOCAL are also assigned the 
EXTERNAL attribute. | 


All variables declared with the REGISTER attribute are 
assumed UNRESTRICTED. 


| R- 1555/11 The Rand Computation Center: Page 127 
RL/S Language Reference Manual 


The attributes that may not be coded in conjunction. with a 
specified attribute are listed below,. | 


"ABNORMAL" conflicting attributes: 
component, CONSTANT, NORMAL, VALUERANGE 


"AUTOMATIC" conflicting attributes: 
BASED, | component, CONSTANT, DEFINED, EXTERNAL, 
GENERATED, GLOBAL, INDIRECT, INITIAL, LOCAL, LOCATION, 
NONLOCAL, parameter, REGISTER, RESTRICTED, STATIC, 
UNRESTRICTED, VALUERANGE 


"BASED" conflicting attributes: | 
AUTOMATIC, component, CONSTANT, DEFINED, EXTERNAL, 
GENERATED, GLOBAL, INDIRECT, INITIAL, LOCAL, LOCATION, 
NONLOCAL, parameter, REGISTER, RESTRICTED, STATIC, 
UNRESTRICTED | 


"BIT" conflicting attributes: 
CHARACTER, ENTRY, FIXED, LABEL, POINTER, REGISTER, 
RESTRICTED, SIGNED, UNRESTRICTED, UNSIGNED, VALUERANGE 
"BOUNDARY" conflicting attributes: | 
| CONSTANT, GLOBAL, REGISTER, RESTRICTED, UNRESTRICTED, 
VALUERANGE 


"CHARACTER" conflicting attributes: 
BIT, ENTRY, FIXED, LABEL, POINTER, REGISTER, 
RESTRICTED, SIGNED, UNRESTRICTED, UNSIGNED, VALUERANGE 


"component" conflicting attributes: 
ABNORMAL, AUTOMATIC, BASED, CONSTANT, DEFINED, 
EXTERNAL, GENERATED, GLOBAL, INDIRECT, INTERNAL, — 
LOCAL, = LOCATION, |§NONLOCAL, NORMAL, parameter, 
REGISTER, RESTRICTED, STATIC, UNRESTRICTED, VALUERANGE 


"CONSTANT" conflicting attributes: 
ABNORMAL, AUTOMATIC, BASED, BOUNDARY, component, 
DEFINED, dimension, ENTRY, EXTERNAL, GENERATED, 
GLOBAL, INDIRECT, INITIAL, LABEL, LOCATION, NONLOCAL, 
parameter, |. REGISTER, RESTRICTED, structure, 
UNRESTRICTED, VALUERANGE | 


"DEFINED" conflicting attributes; : 
AUTOMATIC, BASED, component, CONSTANT, EXTERNAL, 
GENERATED, GLOBAL, INDIRECT, INITIAL, LOCAL, NONLOCAL, 
parameter, REGISTER, RESTRICTED, STATIC, UNRESTRICTED 


"dimension" conflicting attributes: 
CONSTANT, REGISTER, RESTRICTED, . UNRESTRICTED, 
VALUERANGE 
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"ENTRY" conflicting attributes: 
ABNORMAL, AUTOMATIC, BIT, BOUNDARY, CHARACTER, 
component, CONSTANT, CONSTANT, DEFINED, dimension, 
FIXED, GLOBAL, INDIRECT, INITIAL, LABEL, NORMAL, 
POINTER, REGISTER, RESTRICTED, SIGNED, structure, 
UNRESTRICTED, UNSIGNED, VALUERANGE | 


"EXTERNAL" conflicting attributes: 

AUTOMATIC, BASED, component, CONSTANT, DEFINED, 
GENERATED, INTERNAL, LOCATION, parameter, REGISTER, 
RESTRICTED, UNRESTRICTED | 


"FIXED" conflicting attributes: | 
BIT, CHARACTER, ENTRY, LABEL, POINTER, VALUERANGE 


"GENERATED" conflicting attributes: 
AUTOMATIC, BASED, component, CONSTANT, DEFINED, 
EXTERNAL, INDIRECT, INITIAL, LOCAL, | LOCATION, 
NONLOCAL, parameter, REGISTER, RESTRICTED,  STATIC, 
UNRESTRICTED | 


"GLOBAL" conflicting attributes: 
AUTOMATIC, BASED, BOUNDARY, component, CONSTANT, 
DEFINED, ENTRY, GENERATED, INDIRECT, INTERNAL, LABEL, . 
LOCAL, LOCATION, NONLOCAL, parameter, REGISTER, 
RESTRICTED, UNRESTRICTED 


"INDIRECT" conflicting attributes: 
AUTOMATIC, BASED, component, CONSTANT, DEFINED, ENTRY, 
GENERATED, GLOBAL, LABEL, LOCATION, NONLOCAL, 
parameter, REGISTER, RESTRICTED, UNRESTRICTED | 


"INITIAL" conflicting attributes: 
AUTOMATIC, BASED, CONSTANT, . DEFINED, GENERATED, 
LOCATION, NONLOCAL, parameter, BEGISTER, RESTRICTED, 
UNRESTRICTED, YALUERANGE 


"INTERNAL" conflicting attributes: 
component, EXTERNAL, GLOBAL, NONLOCAL 


"LABEL" conflicting attributes: | 
ABNORMAL, AUTOMATIC, BIT, . BOUNDARY, CHARACTER, 
component, CONSTANT, DEFINED, dimension, ENTRY, FIXED, 
GLOBAL, INDIRECT, INITIAL, NORMAL, POINTER, REGISTER, 
RESTRICTED, SIGNED, structure, UNRESTRICTED, UNSIGNED, | 
VALUERANGE | 


"LOCAL" conflicting attributes: 
AUTOMATIC, BASED, component, DEFINED, GENERATED, 
GLOBAL, LOCATION, NONLOCAL, parameter, REGISTER, 
RESTRICTED, UNRESTRICTED 


"LOCATION" conflicting attributes: | 
AUTOMATIC, BASED, component, CONSTANT, EXTERNAL, 
GLOBAL, INDIRECT, LOCAL, NONLOCAL, parameter, 
REGISTER, RESTRICTED, STATIC, UNRESTRICTED 
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"NONLOCAL" conflicting attributes: | 
AUTOMATIC, BASED, component, CONSTANT, DEFINED, 
GENERATED, GLOBAL, INDIRECT, INITIAL, INTERNAL, LOCAL, 
LOCATION, parameter, REGISTER, RESTRICTED, 
UNRESTRICTED | E 


"NORMAL" conflicting attributes: 


ABNORMAL, component, VALUERANGE 


"parameter" conflicting attributes: 


AUTOMATIC, BASED, component, CONSTANT, DEFINED, 
GENERATED, GLOBAL, INDIRECT, INITIAL, LOCAL, LOCATION, 


NONLOCAL, REGISTER, RESTRICTED, STATIC, UNRESTRICTED 


"POINTER" conflicting attributes: Ἢ | | 
BIT, CHARACTER, ENTRY, PIXED, LABEL, SIGNED, UNSIGNED, 
VALUERANGE | 


"REGISTER" conflicting attributes: 
parameter, AUTOMATIC, BASED, BOUNDARY, component, 
CONSTANT, DEFINED, dimension, EXTERNAL, GENERATED, 
GLOBAL, INDIRECT, INITIAL, LOCAL, LOCATION, NONLOCAL, 
STATIC, structure, VALUERANGE 


"RESTRICTED" conflicting attributes: | | 
AUTOMATIC, BASED, BOUNDARY, component, CONSTANT, 
DEFINED, dimension, EXTERNAL, GENERATED, GLOBAL, 
INDIRECT, INITIAL, LOCAL, LOCATION, NONLOCAL, 


parameter, STATIC, structure, UNRSSTRICTED, VALUERANGE 


"SIGNED" conflicting attributes: 
UNSIGNED 


"STATIC" conflicting attributes: 
AUTOMATIC, BASED, component, DEFINED, GENERATED, 
LOCATION, parameter, . REGISTER, A RESTRICTED, 
UNRESTRICTED 


"structure" conflicting attributes: 
CONSTANT, REGISTER, RESTRICTED, UNRESTRICTED, 
VALUERANGES | | | m 


"UNRESTRICTED" conflicting attributes: 
AUTOMATIC, BASED, BOUNDARY, component, CONSTANT, 


DEFINED, dimension, EXTERNAL, GENERATED, GLOBAL, | 


INDIRECT, INITIAL, LOCAL, LOCATION, NONLOCAL, 
parameter, RESTRICTED, STATIC, structure, VALUERANGE 


"UNSIGNED" conflicting attributes: 
SIGNED 


"VALUERANGE" conflicting attributes: 
ABNORMAL, AUTOMATIC, BOUNDARY, CONSTANT, dimension, 
INITIAL, NORMAL, REGISTER, UNRESTRICTED, structure, 
UNRESTRICTED | | 
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Appendix B 


The table below shows the labels that will appear in the 
assembler language program generated by the compiler, together 
with the significance of the labels. 


ον Γ΄ | i Function. 


&àÀnnnnn jeseter sequence symbol (CASE statements) 


Qg9Bnnnnn Assembler sequence symbol (GENERATE DATA 
statements and argument lists) 
@aCnnnnn Assembler sequence symbol (CASE statements) 


@aDnnnnn Assembler sequence symbol (GENERATE DATA 
statements and argument lists) 


800 thru 015 General registers 0 thru 15 


accnnnnn Beginning of case for CASE statement 
(CASE level cc, case number nnnnn) 

dALnnnnn Start of argument list (BASED ENTRY) 

dAPnnnnn Start of argument list í(non-BASED ENTRY) 


Beginning of BASED, DEFINED, or LOCATION 
variable 


@BYnnnnn 


@DATA Start of static data 
@DATD DSECT for dynamic data 
@DATnnnn DSECT for BASED, DEFINED, parameter, 
NONLOCAL, or LOCATION variable 
acSsssss Branch table for CASE statement 
aDBsssss Continuation past complex WHILE or UNTIL tests 
@DCsssss Continuation past DO group 
dDEsssss Beginning of subsequent iterations of DO group 
àDLsssSSs Beginning of first iteration of DO group 


àdDPnnnnn | 
LOCATION value for LOCATION variable 


@ECSSSSS Continuation statement pasi ENTRI 
@ELppppp Start of epilog 

QENDATA | End of static area 

QENDATD End of dynamic area 


Generated label for complex relational 
Generated name for NONLOCAL or GLOBAL variable 


aGlnnnnn 


i 
| 
| 
| 
| 
! 
| 
! 
| 
i 
i 
| 
| 
| 
| 
| 
| 
| 
| | in DO group 
| 
! 
| 
| 
| 
i 
| 
| 
| 
| 
àGNnnnnn | 
i 
| 
| 
| 
| 
| 
| 
! 


àüLAnnnnn Total length of array variable 

àLEnnnnn . Length of array element (with padding) 
àLVnnnnn Length of variable (without padding 

@MAINENT . Main entry point 

@NMnnnnn . Substitute name supplied if no name found 
@PBppppp Continuation statement past internal procedure 
@PROLOG Start of main prolog 

GPSTART Start of normai. adäressability 
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dRCSSSSS 


@RFsSSSSS 


@RTSSSSss 
@SAppppp 
OSIZDATD 


ΦΤΡΏΩΠΏΗ κ 
GTSnnnnn . 


OZLEN 
QZTEMPS 


372100000 


37700001 
37100002 
a7700003 
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Save area 

Size of dynamic area 

Fullword temporary 

String temporary 

Length of temporaries to be zeroed 

Start of temporaries to be zeroed 

Fullword temporary 

Fuliword temporary with hi-order byte = 0 

Fullword temporary with 2 hi-order bytes 
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Appendix C 


RL/S generated assembler language uses a fixed pattern to 
reference each storage class of RL/S variables. These patterns 
are dependent on both the storage class of the variable 
referenced and the manner in which the compiler generates 
assembler language variable storage for that storage class. An 
RL/S variable can be referenced in assembler language (GENERATEd) 
Statements by reproducing a compiler generated reference to the 
variable. This method, however, is not recommended for all 
storage classes because the compiler generated patterns are often. 
tedious to code and are not necessarily the same for every 
compilation of a program (some of the patterns use generated 
names containing internally assiqned variable numbers which are 
dependent on the order of variable definitions). 


Only two storage classes of RL/S variables, STATIC LOCAL and 
AUTOMATIC, are always directly addressable in assembler language 
statements. For both classes of storage, the compiler will 
generate code to load the necessary base registers and to 
indicate to the assembler through USING statements which base 
registers are being used. Therefore, a STATIC LOCAL or AUTOMATIC τ 
RL/S variable can be referenced in assembler language statements 
by simply specifying the name of the variable. 


The following method is recommended for referencing all storage 
classes of RL/S variables other than STATIC LOCAL or AUTOMATIC 
in assembler language statements: 


Define a restricted register variable to be used for. 
addressing the variable or structure. 


Assign the address of the variable or structure to the 
register variable in an RL/S statement.. 


At the start of the GENERATEd code place a USING 
statement which indicates to the assembler that the 
address of the variable or structure is contained in 
the register. | 


Specify only the name of the variable or structure 
when referencing it.. | 


At the end of the GENERATEd code place a DROP 
statement which indicates to the assembler that the 
register is no longer available for addressing the 


variable or structure, 


This method of addressing RL/S variables in. assembler language 
statements will work correctly for all RL/S storage classes. It 
also has the advantage that it will work regardless of any 
changes made in the declarations for the referenced variables. 


a - 
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The following example illustrates the above discussion: | 


DECLARE VAR FIXED STATIC LOCAL; | 
DECLARE 1 STRUCT CHARACTER(8) STATIC NONLOCAL EXTERNAL, 
2 * CHARACTER (4), 
2 STRUCTF FIXED BINARY (31); 
DECLARE R2 REGISTER(2) RESTRICTED; 


R2-ADDR (STRUCT) ; 
GENERATE; 
USING  STRUCT,R2 
L 15, VAR 
ST. 15, STRUCTF 
MVC STRUCT (4) ,=C? ‘ 
DROP ΕΖ 
@ENDGEN 
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Appendix D 


The following information is presented primarily as an overview 
of the assembler language code generated by the RL/S compiler... 
This information is useful when debugging RL/S programs at the 
assembler language level. Additionally, this information should 
enable one to modify RL/S generated assembler language programs 
without recompiling them, should that ever become necessary.. The 
discussion of RL/S generated data structures is primarily 
relevant to programs compiled with the ADEFS compiler option; 
when this option is not specified, an abbreviated (and not easily 
modified) format is used to define data structures. 


TRUCTURES 


ES iU 


RL/S_GENERATED ASSEMBLER LANGUAGE COD 


RL/S generated assembler language code structures are normally 
quite straightforward. However, the compiler does employ some 
conventions, e.g., the use of the conditional assembly facilities 
for GENERATEd data and argument lists and the use of many 
compiler generated labels, that may make the assembler language 
program more difficult to understand. Therefore, the following 
sections will concentrate on those portions of RL/S generated 
assembler language code structures that are related to these 
conventions. . 


2 A y 


pu E 


η. 
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The assembler language statements defined by a GENERATE CODE 
Statement are placed in-line immediately following the GENERATE 
statement. Thus, any labels defined on a GENERATE CODE statement 
immediately precede the GENERATEd code. The assembler language 
statements defined by a GENERATE DATA statement, however, are 
moved to the STATIC or AUTOMATIC data section which follows all 
the compiler generated code for a program. This is done using 
the conditional assembly facilities of the assembler. Any labels 
defined on a GENERATE DATE statement are placed in-line and are 
not related to the GENERATEd data. For example, the statement: 


LABELX: 
GENERATE DATA; 
BUFFER DS CL133 
|. &ENDGEN 


results in the following generated code: 


LABELX DS H 
AGO .àà3D0O001 © 
BUFFER DS CL133 — 
AGO 300380002 


{22100001 ANOP 


The first AGO statement causes the assembler to skip over the 
GENERATEd data when the statements are initially encountered in 
the assembly process. In the proper (either STATIC or AUTOMATIC) 
data section of the program, the following code is generated: 


AGO 0838580001 


which causes the assembler to assemble the GENERATEd data at that 
point in the assembly process. If there are multiple GENERATE 
DATA statements in a program, they are chained together through 
successive AGO statements using the .@@Bnnnn labels.. 
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A single argument list, labeled @APnnnnn, is generated for each 
non-BASED entry point called in a program. . The size of the list 
is determined by the maximum number of arguments passed to the 
entry point. A separate argument list, labeled @#ALnnnnn, is 
generated for each CALL of a BASED entry point. The size of the 
list is determined by the number of arguments passed to the entry 
point.. Argument lists for calls to BASED entry points are 
generated in-line immediately following each CALL statement and 
are moved to the proper (either STATIC or AUTOMATIC) data section 
of the program using the conditional assembly facilities of the 
assembler as described above under "GENERATE Statements.” 


IF Statements 
Three compiler generated labels are used in generating code for 
IF statements. Each is constructed using the statement number 
(sssss) of the IF statement to which it refers. The generated 
labels and their meanings are: 


QRTSSSSS 

This label is generated for all IF statements. It is 
the beginning of the true or THEN clause of the IF 
Statement. | | 


@RFsssss 
This label is generated for all IF statements. It 15 
the beginning of the false or ELSE clause of the IF 
statement... 


@RCSSSSS | | , 
This labels is generated only if an ELSE clause 15 
specified for the IF statement. It is the point at 
which the THEN and ELSE paths of the IF statement 
merges | 
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5ο statements 


Four compiler generated labels are used in generating code for DO 
statements... Each is constructed using the statement number 
(sssss) of the DO statement to which it refers. The generated 
labels and their meanings are: 


@DLSSSSS 

This label is generated only if an iteration or UNTIL 
condition is specified. It is the beginning of the 
first iteration of the DO group. This is the 
beginning of the iteration test if an iteration 
condition is specified, or the beginning of the DO 
group body if only an UNTIL condition is specified.. 


@DBSSsss 

This label is generated only when required. It is the 
continuation point past complex WHILE or UNTIL 
conditions, . 


@DESssss 

This label is always generated and is the branch point 
for NEXTLOOP statements. It is the beginning of 
subsequent iterations of the DO group. This is the 
beginning of the increment (decrement) code if only an 
iteration condition or an iteration condition with a 
WHILE condition is specified, the beginning of the 
WHILE test if only a WHILE condition is specified, the 
beginning of the UNTIL test if an UNTIL condition is 
specified, or the continuation point past the DO group 
if a non-looping DO group is specified. 


@DCsssss 
This label is always generated and is the branch — 
for EXITLOOP statements, It is the continuation point 
past the DO group.. 
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in addition to the compiler generated labels defined above for DO. 
groups, two other forms of compiler generated labels are used for 
CASE statements. The generated labels and their meanings ares: 


dCSsssss | 

This label is always generated and is the name of the 
CASE statement branch table. The first word of the 
table contains the number of cases defined for the 
CASE statement, each of the remaining words contains 
the address of the beginning of one of the cases. The 
label is constructed using the statement number 
(sssss) of the DO statement, 


@llnnnnn 

This label is generated at the beginning of each case 
of the CASE statement. The label is constructed using 
the CASE nesting level (11) and the sequence number of 
the case (nnnnn) at that nesting level.. 


The CASE statement branch table is generated at the end of the 
CASE statement. It is moved to the STATIC data section which 
follows all the compiler generated code for a program uSing the 
conditional assembly facilities of the assembler in exactly the 
same manner as described above under "GENERATE Statements," 
except that the labels @@Annnn and 38Cnnnn are used instead of 
the labels @@Bnnnnn and @@Dnnnn, respectively. If there are 
multiple CASE statements in a program, the branch tables are 
chained together taroug- successive AGO statements using the 
@@Annnn labels. 
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Relational Expressions 


RL/S does not reduce relational expressions to boolean  values.. 
Rather, since each portion of a relational expression is a 
comparison operation, it uses the condition code resulting from 
the comparison to determine the effect of the relational 
expression. In addition, RL/S evaluates relational expressions 
only to the point of determining the truth or falsity of the 
expression... Compiler generated labels of the form @GLnnnnn are 
used to branch around portions of a relational expression that 
become unnecessary in determining the truth or falsity of the 
expression,. Any "hot" operators (~) are applied to the 
relational expression according to DeMorgan's rules to reverse 
any comparisons and/or connectors over which they apply.. 
Comparisons are reversed either by changing the branch condition 
or by changing the branch location; connectors are reversed by 
changing "and" (&) to "or" (1), and vice versa. For example, the 
Statement: 


IF {A=B & C-D) |- 
(EF | G-H) 5 
-(I-J | (K-L δ M=N)) THEN 
Á-Y; 
ELSE X72; 


results in the following generated code: 
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GL00001 


GL00002 


ΕΤΟΟΟΟ3 


ΒΕΟΟΌΟΟ 3. 


RC00003 
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915, Ἀ 
315,8 
@GL00001 
@15,C 
915,0 
a@RTO0003 
OH 

315,5 
315,F 
aGL00002 
9156 | 
215, Η 
38F00003 
0H 

315,I 
315,J 
à8F00003 
à15,K 
315,L 
98700003 
315,M 
@15,N 
@RFO0003 
0H 

315,Y 
@15,X 
38C00003 
0H 
315,2. 
915, Χ 

OH 
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RLvS GENERATED ASSEMBLER LANGUAGE DATA STRUCTURES 


ο PER ae: 


RL/5 generated assembler language data structures can become 
verbose and complex, but they follow rigid patterns which are 
designed to allow almost all attributes of the data, 20a; 
boundary alignment and offset of components within a structure, 
to be computed at assembly time rather than being fixed by the 
compiler. It is this feature that makes the data structures 
modifiable at the assembler language level. However, the freedom 
to modify the data structures also admits the possibility of 
Changing them in ways which are incompatible with the code 
generated by the compiler. | 
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storage Class Definitions 
RL/S variables declared as (or defaulted to) FIXED BINARY are 
generated as: 


DS P if the precision is 31 or 32 and 
the boundary is (FWORD,1) — 
DS H if the precision is 15 or 16 and 
the boundary is (HWORD,1) _ 
DS FLn if the precision is 8 (n=1) or 24 (n-3), or 
the precision is 31 or 32 (n-5) and 
the boundary is not (WORD,1), or 
the precision is 15 or 16 (n-2) and 
the boundary is not (HWORD, 1) 


 RL/S variables declared as {or defaulted to) POINTER. are 
generated as: | 


DS A if the precision is 31 or 32 and 
| the boundary is (FWORD,1) 
DS Y if the precision is 15 or 16 and 
the boundary is (HWORD,1) 
DS ALn- if the precision is 8 (n1) or 24 (n-3), or 
the precision is 31 or 32 (n=4) and 
the boundary is not (WORD,1), or 
the precision is 15 or 16 (n=2) and 
the boundary is not (HWORD,1) 


RL/S variables declared as (or defaulted to) CHARACTER are 
generated as: | 


DS CLn if the length (n) is less than or equal to 256 
DS nc if the length (n) is 0 or greater than 256 


The storage definitions for all BIT variables are generated in. 
full byte units, i.e., as eight bit multiples beginning on a byte 
boundary. However, in the code generated for references to BIT 
variables the necessary adjustments are made for those variables 
that do not begin on a byte boundary and/or are not a multiple of 
eight bits in length. RL/S variables declared as BIT are 
generated as: | | 


DS BL.m if the length (n) is less than or equal to 256, . 
| where m- (n*7) /8*8 
DS  mBL.8 if the length (n) is 0 or greater than 255, . 
where m-(n*7)/8 
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Boundary Alignment Definition 


PRON SRS TR: AE MER OG SUR. AOE Se SOR ης’ κος ΑΗ «μήν SAN MEME VAASA 


RL/S uses an ORG Statement to align all variables that have a 
boundary requirement other than BYTE, except FIXED BINARY 
variables generated as: 


DS F 
DS H 


and POINTER variables generated as: 


DS A 
DS Y 


forms of the ORG statement are: 


F3 
πα 
o 


ORG csectname* (*-csectname*7-m) /8*8+m 
if the boundary is κ... nz21-8, . 
where m=n-1 


ORG csectnamet (*-csectname+3-m) /4*4+m 
| if the boundary is (WORD,n), n=1-4, 
where m-n-1 


ORG csectname* (*-csectnamet 1-πι) /2*2+m 
if the boundary is αμ. n=1-2, 
where m=n-1 | 


These ORG statements are equivalent to the following code 
segments respectively: 


ORG  *-m 
DS OD,CLm 


ORG  *-m 
DS OF,CLm 


ORG *-m 
DS OH,CLm 


where m is defined as above. | 
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The following compiler generated labels appear throughout the 
definitions of  RL/S generated assembler data structures. These 
labels are used to dynamically compute storage allocations, 
boundary alignments, structure padding, and offsets for variable 


addressing. Each label is constructed using an internally 


generated number (nnnnn) that is either a sequence number for the 
class of labels or an internally assigned variable number. . 


aNMnnnnn | 
This label is generated for all structure variables 
declared without a formal name using the * notation. 


QDATnnnn | | 
This label is generated as the name of a  DSECT that 
contains the storage definition for a BASED, DEFINED, 
parameter, NONLOCAL, or LOCATION variable,. 


aDPnnnnn.. 
aàBYnnnnn 

These labels are generated for all BASED, DEFINED, and 
LOCATION variables. For BASED and DEFINED variables, 
@aDPnnnnn is equated to the position offset (relative 
to 0) for the variable. For BIT variables the 
POSITION value (n) is in terms of bits and the 
position offset is ((n*t7)/8- 1); for all other 
variables the POSITION value (n) is in terms of bytes 
and the position offset is (n-1), For LOCATION 
variables,  àDPnnnnn is equated to the LOCATION value 
(relative to 0) for the variable.  3BYnnnnn is equated 
to the beginning of the variable minus the value of 
@DPnnnnn. This is the beginning of the variable 
including the POSITION or LOCATION value. Ail 
references to BASED, DEFINED, or LOCATION variables 
use dBYnnnnn as the beginning of the variable, thus, 
automatically including the POSITION or LOCATION value 
into the offset calculated for the variable. 


dGNnnnnn Ἢ | 

This label is generated for all GLOBAL and  NONLOCAL 
variables. Por GLOBAL variables, the name of the 
variable is placed on a CSECT statement and  àGNnnnnn 
is used as a dummy name for the variable within that 
CSECT for storage allocation purposes... For  NONLOCAL 
variables,  3GNnnnnn is used as a dummy external name 
for the variable. A linkage editor CHANGE card, which 
Changes the external name from 3GNnnnnn to the real 
variable name, is PUNCHed at the beginning of the 
assembly containing the NONLOCAL variable.. 
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dLYnnnnn 
This label is generated for all array variables and 
structure or component variables. It is equated to 
the length of an array element for array variables and 
to the length of the variable for structure or 
component variables. | : 


aL Ennnnn 
aLAnnnnn 

These labels are generated for all array variables. 
aLEnnnnn is equated to the length of an array element, | 
including any padding required for aligning the next 
array element. @LAnnnn is equated to the total length 
of the array, including any internal padding required 
for aligning the array elements. 


Storage generation for arrays with more than one element uses the 
compiler generated names @L¥Ynnnnn and @LEnnnnn defined above. 
The storage generation process consists of the following steps: 


Generate an ORG statement for aligning the array, if 
required (see "Boundary Alignment Definitions" above). 


Generate storage for a single element of the array 
using the rules definied above under "Storage Class 
Definitions." 


Equate @LVnnnnn to the length of an array element 
(1.8. to *~arrayname).. 


Generate another ORG for aligning the array, if 
required. This will generate any padding necessary 
between elements of the array. 


Equate a@Lennnnn to the length of an array element 
including any necessary padding between elements of 
the array (i.e., to *-arrayname), 


Generate storage for the remaining elements of the 

array... The required number of bytes is 

(π- 2) *@LEnnnnnt+@LVannnn, where m is the number of 
elements in the array. 
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Storage generation for structures occurs exactly in the order in 


which the structure elements were defined and uses the compiler 
generated names @LVnnnnn and @LAnnnnn defined above. The storage 
generation process consists of generating storage for each 
structure element according to the rules defined above and 
interspersing those storage definitions with the proper ORG 
statements to overlay those structure elements sharing common. 
storage. There are six cases to be considered: 


Storage generation for the first level ος the 
structure: If the structure is a BASED, DEFINED, or 
LOCATION variable, the compiler generated label | 
@DPnnnnn is defined and an ORG to *+@DPnnnnn is 
required before storage generation, and the compiler 
generated label @BYnnnnn is defined after storage 
generation. . | 


Storage generation for a structure element at the same 
level as the previous structure element: No ORG 
Statement is required since the storage for the 
current element immediately follows the storage for 
the previous element. . 


Storage generation for a structure element at the same 
or higher level as the previous structure element that 
is a BIT variable which does not begin on a byte 
boundary: An ORG to *-1 is required since the storage 
generation for all BIT variables is done in full byte 
units, i.e., as eight bit multiples beginning on a 
byte boundary. . 


Storage generation for a structure element at a lower. 
level than the previous structure element: An ORG to 
the beginning of the previous structure element (i.e., 
ORG elementname)is generated since the current element 
shares common storage with the previous element. 


Storage generation for a structure element at a higher 
level than the previous structure element: An ORG 
statement to the next byte following the ilast 
structure element at the same level  (i.e., ORG 
elementnamet@L¥nnnnn or ORG elementname+@LAnnnnn) 15. 
generated since the storage for the current element 
immediately follows the storage for that element, 


Storage generation following the structure: An ORG 
with no operand is required to ensure that the storage 
for subsequent variables does not overlap the storage 
defined for the structure. © 
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LABEL and ENTRY variables that are declared with the BASED 
attribute are not permitted to appear in an RL/S program as 
actual labels of any statement. Therefore, for consistency with 
the addressing patterns used for other types of BASED variables, 
BASED LABEL and BASED ENTRY variables are generated as BASED 
CHARACTER variables of length zero, even though they do not have 
any significance in terms of data storage. 


Compiler generated fullword and string temporaries are separately 
asigned for each procedure in an RL/S program. Νο attempt is 
made to coalesce temporaries assigned to different procedures, . 
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— 


The following example illustrates some of the above discussion: 


DCL 1 STRUCT(5) BASED POSITION(8) BOUNDARY(DWORD), 
2 VARA FIXED BINARY(31), 7 
2 VARB(4) FIXED BINARY(8), 

2 κ CHARACTER (1), 
2 VARC POINTER (24), 
2 VARD BIT(15), 
3 VARE BIT(1), 
3 YARF BIT(5), 
3 VARG BIT(10), 
2 VARH(2) BIT(512) BOUNDARY (WORD), 
3 VARI(8) BIT(128); 


R-1555/11 


QDATODO!1 
à8DP00002 


STRUCT 


@LV90002 


@LE00002 


-~ ƏLA00002 F 
9BV00002 | 


VARA 


311003 E 


VARB 


aLvo0o00u E 


@LE00004 


a8NM0DD0D01 


aLv0OODO05 F 


VARC 


@LVO00006 E 


VARD 


aLvo0007 F 


VARE 


aLv00008 E 


VARF 


@LV00009 Ε 


VARG 
àL Y00010 


VARH 
@Ly00011 


@LE00011 


@LA00011 ; 


VARI 
@LV00012 
aLEOQ0012 


DSECT 


*-VARD 
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8-1. 

**3DP00002 

àDATOO014 (*-@DATO001+7-0) /B*840  (DWORD, 1) 

CL144 ===>> BASED POSITION(8) <<=== 
k-STRUCT 

@DATOO014 (*-aDATO001+7-0) /8*8+0 (DWORD, 1) 
*-STRUCT 

(3*3LE00002*8LV00002)C 

*-STRUCT 


STRUCT-3DP00002 


STRUCT 
F LEVEL 2 OP STRUCT 
*-VARA 
FL1 
*~VARB 
*-VARB 
(2*3LE00004+aLV00004)C 
#-VARB | 

CL1 — 
*-QNM00001 
àDAT0001* (*-@DAT000143-1) /4*441 (FWORD,2) 
AL3 LEVEL 2 OF STRUCT 

k= VARC 
BL. 16 


LEVEL 2 OF STRUCT 
LEVEL 2 OF STRUCT 


LEVEL 2 OF STRUCT 


VARD 
BL.8 

*-VARE 

*-1 

BL.8 

*-VARF 

*- 1 

BL.16 

*- VARG 
VARDtaLV00007 
Q8DATOO014 (*-Q0DATOO0143-0) /4*440 (FWORD, 1) 
64BL.8 LEVEL 2 OF STRUCT 
*-VARH 

àDAT00014 (*-3DATOO0143-0) /4*440 (FHORD, 1) 
*-VARH 

{0*9LE000114+aLV00011)C 

*-VARH 
VARH 

BL. 128 

*- VARI 
*-VARI E 
(6*3LE00012*38LY00012)C 
*- VARI 


¥ 


LEVEL 3 OF STRUCT 
LEVEL 3 OF STRUCT 


LEVEL 3 OF STRUCT 


LEVEL 3 OF STRUCT 
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Appendix E 


SYNTAX SUMMARY 


The following is a BNF summary of the syntax of RL/S. It should 
be noted that this syntax allows some language constructs that 
are not legal according to the semantics of RL/S. The various 
sections of this manual should be consulted for complete 
information, ~ | | 


«PROGRAM» 55 
«PROCEDURE» 
<NONPROC STMT LIST» | 
<NONPROC STMT LIST» «PROCEDURE» 
<NONPROC STMT LIST» «PROCEDURE» <NONPROC STMT LIST» 


<NONPROC STMT LIST» ;z- 
<GENERATE STMT> 
<CONTROL STMT> 
€NONPROC STMT LIST» «GENERATE STMT> 
<NONPROC STMT LIST» «CONTROL STMT> 


<STMT LIST» ::-- 
«STN T» 
<STMT LIST» <STMT> 


<STMT> :i- 
<PROCEDURE> 
<ENTRY STMT> 
<NONEXEC STMT> 
<BAL STNT> 
<UNBAL STMT> 
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<NONEXEC STMT> ::= 
ident : <NONEXEC STMT> 
<CONTROL STMT>D 
«DECLARATION STMT» 
CRESPECIFY STMT»5 


«BAL STMT> ::= 
ident : «BAL STMT> 


<ASSIGNMENT> 

<BAL IF STMT> 
<ASSERT STMT> 

«DO GROUP» 

<GOTO STMT» 

«CALL STMT> 
«RETURN STMT> 
<ALLOC/FREE STMT> 
<GENERATE STMT> 


<UNBAL STMT> ::= 
ident : <UNBAL STMT> 
<UNBAL IF STMT> 
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<PROCEDURE> ::= 
<PROC HEAD> <END STMT> 


«PROC HEAD» «STMT LIST» «END STMT> 


«PROC HEAD» ::= 
ident PROCEDURE : 
ident 
ident 
ident 


öö üü be di 


«PROC OPT LIST» ::- 
«PROC OPTION» 


PROCEDURE ( <ID 11512 ) ; 
PROCEDURE OPTIONS ( «PROC OPT LIST> ) 
PROCEDURE ( «ID LIST? ) OPTIONS ( «PROC OPT LIST> ) ; 


«PROC OPT LIST» , «PROC OPTION» 
«PROC OPT LIST» «PROC OPTION» 


«PROC OPTION» ::- 
AUTODATA 
AUTODATA ( <NUMBER> ) 
NOAUTODATA 
CODEREG ( <NUMBER LIST> 
NOCODEREG 
DATAREG { <NUMBER LIST» 
NODATAREG 
ENTREG 
NOENTREG 
EPILOG 
NOEPILOG 
ID 
ID ( <CHARACTER STRING» 
NOID 
KEY 
os 


OS ( SUBPOOL ( <NUMBER> 
PARMREG 

NOPA RMR EG 

PROLOG 

NOPROLOG 

REENTRANT 

RETREG 

NORETREG 

SAVE 

SAVE ( <NUMBER LIST» ) 
NOSAVE 

NOSAVE ( «NUMBER LIST» ) 
SAVEAREA 

SAVEAREA ( <NUMBER> ) 
NOSAVEAREA 

SAVEREG 

NOSAVEREG 


OS ( SUBPOOL ( <NUMBERD } 


) 


) 
. HIERARCHY ( <NUMBER> ) ) 
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SENTRY STMT> ::Ξ 
ident : ENTRY ; 
ident : ENTRY ( «ID LIST> ) ; 


«GENERATE STMT> ::- 
GENERATE ( asmstmt ) ; 
GENERATE «GEN OPT LIST» ( asmstmt ) 3 
GENERATE ; asmstmtlist 3 ENDGEN 
GENERATE «GEN OPT LISTO ; asmstmtlist ἃ ENDGEN 


«GEN OPT LIST» ::- 
<GEN OPTION» 
<GEN OPT LIST» «GEN OPTION» 


«GEN OPTION» ::= 


CODE 
DATA 

DEFS ( «ID LIST> ) 

. NODEFS 

EXIT 

NOEXIT 

FLOWS ( «ID LIST» ) 

NOFLOWS | 

REFS ( «Το LIST ) 

NOREFS 

 SEQ?LOW 

NOSEQFLOW 

SETS ( «ID LIST> ) 

NOSETS | 


«CONTROL STMT» ::- 

ANNOTATE ON ; 

ANNOTATE OFF ; 

ASSERTIONS ON » 

ASSERTIONS OFF ; 

EJECT 3 . 

INCLUDE ident ; 

INCLUDE ident ( ident ) ; 
LIST ON ; 

LIST OFF ; 

PROCESS «CHARACTER STRING> ; 
PROCESS ; , 

SUBTITLE «CHARACTER STRING> ; 
TITLE «CHARACTER STRING» ; 


κακών, 


TITLE <CHARACTER STRING> , «CHA RACTER STRING> 


2 . 


?* 
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«DECLARATION STMT> στ 
= DECLARE «DCL LIST» ; 


*XDCL LISTO ::- 


<DCL ELEMENT»5 
«DCL LIST» , «DCL ELEMENT» 


<DCL ELEMENT» ::= 
<SIMPLE ID> 
«SIMPLE ID» «ATTR/TYPE LIST» 
( <DCL LIST» ) 
( <DCL LIST» ) «ATTR/TYPE LIST» 
decimalnumber ( <DCL LIST» ) _ 
decimalnumber ( <DCL LISTO ) <ATTR/STYPE LIST> 
ident 'Ἄ «CHARACTER STRING» 


SSIMPLE ID» ::- 
ident 
ident ( «DIMENSION LIST» ) 
decimalnumber ident 
decimalnumber ident ( XDIMENSION LIST ) 
decimalnumber * 
decimalnumber κ ( «DIMENSION LIST? ) 


«DIMENSION LIST» ::- 
C NUMBER? 


— LIST» , «NUMBER 


XATTR/TYPE LIST? ::- 
«TYPED 
«ATTRIBUTE» | 
<ATTR/TYPE LIST» <TYPE> 
<ATTR/TYPE LIST> <ATTRIBUTE> 


«TYPE» ::- 
BINARY 
BINARY ( <NUMBER> ) 
BIT ( <NUMBER> ) 
BIT (κ ) 
CHARACTER ( <NUMBERD> ) 
CHARACTER ( * ) 
ENTRY 
FIXED 
FIXED ( «NUMBER» ) 
LABEL 
POINTER 
POINTER ( <NUNBER> ) 
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ο... 


ο 
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<ATTRIBUTE> σ2- 
AUTOMATIC 
STATIC 
BASED 
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BASED ( ident ) 

BASED ( ADDR ( ident ) ) 

BASED POSITION ( XNUMBER5 ) 

BASED ( ident ) POSITION ( «NUMBER? ) 


BASED ( ADDR ( ident ) ) POSITION ( «NUMBER ) 


BOUNDARY ( «ALIGNMENT? ) 
BOUNDARY ( «ALIGNMENT» , <NUMBER> ) 
CONSTANT ( «CONSTANT» ) 

DEFINED ( ident ) 

DEFINED ( ident.) POSITION ( <NUMBERD> ) 


GENERATED 
GLOBAL 
INDIRECT 


INITIAL ( «INITIAL LIST» ) 


INTERNAL 
EXTERNAL 
LOCAL 

NONLOCAL 


LOCATION ( <NUMBER> ) 


NORMAL 
ABNORMAL 


OPTIONS { <ENTRY OPT LIST» ) 
REGISTER ( «NUMBER ) 


RESTRICTED 
UNRESTRICTED 
SIGNED 
UNSIGNED 


VALUERANGE ( «ID LIST> ) | 


<ALIGNMENT> ::- 
DWORD 
WORD 
HWORD 
BYTE 


«INITIAL LIST> 252 
<INITIAL SPEC> 
«INITIAL LIST> , <INITIAL SPEO 


<INITIAL SPEC> ::= 
<INITIAL EXPR> | 
( <NUMBER> ) «INITIAL EXPR> 
* 


( «NUMBER» ) * 


<STRING> 
{ <NUMBER> ) 
( <NUMBER> ) 


<STRING> 
( <NUMBER> ) <STRING> 
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«INITIAL EXPR) 5:- 
«INITIAL FACTOR» 
«INITIAL EXPR> + «INITIAL FACTOR» 
«INITIAL EXPR> - «INITIAL FACTOR» 
<INITIAL EXPR> κ «INITIAL FACTOR> 


«INITIAL FACTOR> 22 
“INITIAL PRIMARY» 
+ «INITIAL PRIMARY» 
7 INITIAL PRIMARY» 


«INITIAL PRIMARY>D ::-Ξ 
«NUM BER» 
ADDR ( ident ) 


«ENTRY OPT LIST» ::- 
<ENTRY OPTION» 
<ENTRY OPT LIST» , «ENTRY OPTION» 


«ENTRY OPTION» ::- 
EXIT 
NOEXIT | 
FLOWS ( «ID LIST» ) 
NOFLOWS | 
REFS ( «ID LIST? ) 
NOREFS 
SEQFLOW 
 NOSEQFLOW 
SETS ( «15 LIST ) 
NOSETS 
VLIST 


X μ΄ 
eee 
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RESPECIFY 
RESPECIFY 
RESPECIFY 
RESPECIFY 
RESPECIFY 
RESPECIFY 
RESPECIFY 
RESPECIFY 
RESPECIFY 
RESPECIFY 
RESPECIFY 
RESPECIFY 
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<RESPECIFY STMT> ::= 


ident 
( «ID 
ident 
ident 
( «9ο 
( <ID 
ident 
ident 
ident 
( «ID 
( «το 
( «ID 


æ 


9 


LIST> 


) 3 


RESTRICTED ; 
UNRESTRICTED ; 


LIST» 
LIST» 
BASED 
BASED 
BASED 
LIST) 

LIST» 
LIST» 


) RESTRICTED ; 
) UNRESTRICTED ; 


$ 

( ident ) ;. 

( ADDR { ident ) ) ; 
BASED 2. 

) BASED ( ident ) ; 

) BASED ( ADDR ( ident ) ) 


. 
9 
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«ASSIGNMENT» ::= 
<VARIABLE> = <EXPR> ; 


«BAL IF STMT> ::= 
j IF «REL EXPR» THEN «BAL STHT> ELSE <BAL STMT> 


“ASSERT STMT> ::= 
ASSERTION «REL EXPRD ; 


«DO GROUP» ::- | 
«DO GROUP HEAD» «END STMT> 
«DO GROUP HEAD» «STHT LISTO? «END STMT> 


«DO GROUP HEAD> ::= 
DO ; 

DO «STEP DEFINITION» ; 

DO WHILE «REL EXPR> ; 

DO UNTIL «BREL EXPR> ; 

DO «STEP DEFINITION» WHILE «REL EXPR> ; 
DO «STEP DEFINITION» UNTIL «REL EXPR? ; 
DO CASE «EXPBR5 2 


«STEP DEFINITION> ::= 
ident = <EXPR> 
i <EXPR> TO <EXPR> 
= <EXPR> BY <EXPR> 
<EXPR> TO <EXPR> BY <EXPR> 
<EXPR> BY <EXPR> TO <EXPR> 


p 
Eu 
o d 
uU id 


«GOTO STMT> ::= 
GOTO <VARIABLED ; 
GO TO <VARIABLED ; 
NEXTLOOP ; 
EXITLOOP ; 


<CALL STMT» z= 
CALL ident ; 
CALL ident SET ( <VARIABLE> ) ; 
CALL ident ( <EXPR LIST> ) ; 
CALL ident ( <EXPR LIST» ) SET ( <VARIABLE> ) ; 


<<RETURN STM T» 155 
RETURN ; 
RETURN CODE ( <EXPR> ) 3 
RETURN TO «VARIABLE? ; 
RETURN CODE ( <EXPR> ) TO <VARIABLE> 3; 
RETURN TO <VARIABLE> CODE ( <EXPR>) 2 
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«ALLOC/FBREE STMT» στο 
ALLOCATE ident ; | | 
ALLOCATE ident SET ( <VARIABLED ) ; 
FREE ident ; 
FREE ident BASED ( C VARIABLES > 5 


<UNBAL IF STMT> 3:= 
IF <REL EXPR> THEN <BAL STMT» 
IF «REL EXPR» THEN <UNBAL STMT> 
IF «REL EXPR> THEN «BAL STMT> ELSE <UNBAL STMT> 


«END STMT> ::= 
ident : «EBD STMT> 
END ; 
END ident ; 


Page 160 | The Rand Computation Center: | R-1555/11 
RL/S Language Reference Manual 


<EXPR LISTO ::- 
| <EXPR> 
<EXPR LIST» , <EXPR> 


<ID LIST> ::= 
ident | 
«10 LIST» , ident 


«NUMBER LIST» ::= 
«NUMBER» 
«NUMBER LIST» , <NUMBER> 


Se 


R-1555/11 


<REL EXPR> -- 
«REL TERM» 
«REL EXPR» 


«REL TERM» ::= 
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| «REL TERM» 


«REL FACTOR» 


XREL TERM» & «REL FACTOR» 


XREL FACTOR» ::= 
<ARITH EXPR» «RELATION» 


( «REL EXPR> ) 
4 ( «BEL EXPR> ) 


<RELATION> ::= 


«κεν 


ν A 


<ARITH EXPR> 
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<EXPRD> 33= 
«LOG TERMÓ — 
<EXPR> 55 «LOG TERM» 


«LOG TERM> στ 
«LOG FACTOR» 
«LOG TERM> | «LOG FACTOR» 


«LOG FACTOR> ::= 
<ARITH EXPR» 
<LOG FACTOR> & <ARITH EXPR> 


SARITH EXPR> σσ 
<TER MD 
<ARITH EXPR> + <TERM> 
<ARITH EXPRD> - <TERM> 


«TERM»::- 
«FACTOR» 
«TERM» * «FACTOR» 
«TERM» / «FACTOR» 
«TERM» // <FACTOR> 


«FACTOR» 5:5 
<PRIMARY> 
+ <PRIMARY> 
- <PRIMARY> 
~ <PRIMARY> 


<PRIMARY> ::- 
<CONSTANT> 
<VARIABLE> 
( <EXPR> } 
ABS ( <EXPR> } 
ADDR ( XVARIABLED ) 
ADDR ( <CONSTANT> ) 
EVAL ( <EXPR> ) 
MAX ( <EXPR LIST> ) 
MIN ( <EXPR LIST» ) 


R-1555/11. 


R- 1555/11 The Rand Computation Center: 
RL/S Language Reference Manual 


«VARIABLE» σσ 
ident 
ident ( <SUBSCRIPT ) 
<VARIABLE> -> ident 
<VARIABLE> -> ident ( <SUBSCRIPT> ) 


«SUBSCRIPT» 33> 
SEXPR LIST» 
<EXPR> : <EXPRD 
<EXPR LIST» , <EXPR> > <EXPR> 


<CONSTANT> ::- 
<STRING> 
<NUM BER > 


<STRING> ::- 
<CHARACTER STRING> 
bitstring 
[ «NUMBER» ] bitstring 
hexstring 
[ <NUMBER> 1 hexstring 


«CHARACTER STRING> ::= 
Characterstring | | 
[ «NUMBER» ] characterstring 


«NUMBER» σσ 
decimalnumber 
binarynumber 
DIM ( ident ) 
| DIM ( ident , <NUMBER> ) 
LENGTH ( «VARIABLE» ) 
LENGTH ( <CONSTANT> ) 
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Appendix F 


PROGRAMMING EXAMPLE 


REARS SOE THIRD TENET GENUS RAUM EURO EI TOLER ARIE. HELF Ur dt Rho AMI. SIG MERE NLS CR, 


The following is a complete RL/S program, It is the symbol table 


handling routine for and is a part of the RL/S compiler. The 
generated assembler language program consists of approximately 
2400 statements, which assembles into approximately 4.5K of 
executable code and 26K of data. 


SYMTAB: PROC(DUMYPARM) OPTIONS(CODEREG(12,11,10)); 


/ BEREREK EEK EEK kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkykkkkkkkkkkkk*kkk/ 


/* SYMTAB DECLARATIONS 
* 


κ, 


ud 


*/ 


[BREE ERK 44 αχ ο IRE RAK EE EEK RRR KR RE RE RE RK EER EER IR EE EE EEE ICR EK / 


DCL LDISKSYM LITERALLY '100*' /* NUMBER OF ENTRIES PER RECORD 
DCL LCORESYM LITERALLY '100' /* NUMBER OF IN-CORE ENTRIES 
DCL LHASHTAB LITERALLY '251' /* PRIME NUMBER FOR HASHING 

DCL LATTR LITERALLY '108' /* LENGTH OF ATTRIBUTE STRING 


*/3 
*/3 
kJ; 
ΚΘ 


DCL MAXREC LITERALLY 200: /* NUMBER OF RECORDS WE CAN HAVE */; 


DCL LENTRY LITERALLY 1161 /* LATTR + 8 
DCL LRCRD LITERALLY ' 11602" /* LDISKSYM * LENTRY + 2 


DCL HASHTAB(LHASHTAB) FIXED(15); 
DCL 1 CORESYM(LCORESYM) INDIRECT, . 
CORENAME CHAR(8), 
COREATTR CHAR (LATTR), 
OLDER FIXED(15), 
NEWER FIXED(15), 
HASHPTR FIXED(15), 
RCHANGE BIT(1); 
DCL (CSFREEZ,CSOLDEST,CSNEWEST,CORINDEX,COREREC, NUMREC) 
FIXED (15) ; 
DCL 1 DISKSYM INDIRECT, 
2 USED FIXED(15), 
2 TABLE(LDISKSYM) CHAR(LENTRY), 
3 TABNAME CHAR(83), 
3 TABATTR CHAR (LATTR) 2 
DCL (RCHANGES, DSCHANGE, READING) BIT(1); 
DCL 1 DISKDICT(MAXREC) CHAR(10), 
2 DICTNAME CHAR(98), 
2 RECNUM FIXEDÍÍ15); 
DCL SYSUT1 PTR(31) EXTERNAL; 
DCL DOPEVEC PTR(31) INIT (ADDR (DISKSYS)) 3 
DCL (DAOPEN, DAREAD, DAWRITE, ERRORX) ENTRY EXTERNAL; 
DCL (HASHFCN, LOC8REC, SRCHCORE, SRCHDISK, SAVN BWST, MAKNEWST) 
ENTRY INTERNAL; 
DCL (NEXTI,NEXTJ, ERRNUM,SEVERITY) PFIXED(15); 
DCL RECSIZE FIXED(31) INIT (LRCRD) ; 


NON ND IND IO 


*/; 
ΖΩ͂ 


R-1555/11 


The Rand Computation Center: 
RL/S Language Reference Manual. 


J BEREREEE EEK EK EK kkk KKK KKK KE RK KKK ας e oto ERK KEKE KKK ERK EEKEKKEKKEKE EK ERE 7 


SUBROUTINE INITSYM: 
FUNCTION: INITIALIZE TABLES ASSCCIATED WITH SYMBOL STORAGE 


INPUTS: NONE 
OUTPUTS: NONE 


ο; TOR IKI ΟΙ ΣΣ; 


INITSYM: ENTRY; 


DCL KI PFIXED(15); 


/* ZERO ALL HASH TABLE ENTRIES */ 
DO KI=1 TO LHASHTAB; 

HASHTAB (KI) 20; 

END; 


7* CHAIN CORESYM ENTRIES TO FREE LIST 

DO KI=1 TO LCOBESYM-1; 
HASHPTR (KT) =KI+1; 
END; 

HASHPTR (LCORESYM) 2-0; 

CSFREE-71; 

CSOLDEST-0; 

CSNEWEST=0; 

RCHANGES='0'B; 

READING="0' R; 


/* INITIALIZE DISKSYM ENTRIES */ 
USED-0; 
DSCHANGE-'O*Bh; 


/* INDICATE 1 RECORD IN USE, AND IN CORE */ 


CORINDEX-1; 
COREREC-1; 
NUMREC-1; 


/* MARK SINGLE DICTIONARY ENTRY AS HOLDING EVERYTHING */ 


DICTNAME(1)-'FFFFFFFFFFFFFFFF'X; 


RECNUM(1)-71; 


RETURN; 


*/ 
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/* */ 
/* SUBROUTINE PUTSYM: | k/ 
/. FUNCTION: MAKE A NEW ENTRY IN THE SYMBOL TABLE | * y 
/* INPUTS:  PUTNAME - NAME TO ADD, CHAR(8) */ 
/* PUTATTR - ATTRIBUTES OF PUTNAME, CHAR (LATTR) */ 
/* OUTPUTS:  PUTCODE - RETURN CODE, PIXED(15) */ 
/* 0 = NORMAL (NAME ADDED) */ 
/* 1 = ABNORMAL (NAME ALREADY EXISTED)  */ 
/* ATTRIBUTES NOT STORED IP PUTCODE = 1 */ 


——— —— Tee 
PUTSYM: ENTRY (PUTNSDV, PUTASDV, PUTCODE) ; 


DCL PUTN$DV POINTER (31): 
DCL PUTASDY POINTER (31); 


DCL PUTNAME CHAR(8) BASED (PUTN$DY); 
DCL PUTATTR CHAR(LATTR) BASED (PUTASDY) ; 
DCL PUTCODE FIXED (15): 


DCL (KP,BREAK,ILOW,IHIGH,TRIAL) FIXED(15); 


/* DO NOT ALLOW PUTSYM'S IF READING SEQUENTIALLY */ 
IF READING-'1'B THEN GOTO FOUNDXIT; 


CALL LOCB8REC(PUTNAME); 


/* IF RECORD IS FULL, BREAK IT INTO TWO PARTS */ 
τε USED-LDISKSYM THEN DO; | 
IF NUMRECD=MAXREC THEN DO; 
ERRNUM- 144; 
SEVERITY-20; 
CALL ERRORX (ERRNUM, SEVERITY) 2 
GO TO FOUNDXIT; 
END; 
DO KP=NUMREC TO CORINDEX BY “1; 
DISKDICT(KP*1)-DISKDICT (KP) ; 
END; 
NU MREC-NUMREC*1; 
BREAK-LDISKSYM/2; 
DIC TNAME (CORINDEX) =TABNAME (BREAK); 
RECNUM (CORINDEX*1) -NUMREC; 
USED-BREAR; . 
CALL UPDBREC; . 
CALL DAWRITE(SYSUT!1,COREREC- 1, ΕΝ 
DSCHANGE-'0'B; 
DO KP=BREAK+1 TO LDISKSY#; 
TABLE (KP-BREAK) TABLE (KP) ; 
END; 
USED-LDISKSYM-BREAK; 
CORINDEX-CORINDEX*1; 
COREREC=NUMREC; 
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IF PUTNAMEC=DICTNAME (CORINDEX-1) THEN DO; 
CALL UPDSREC; 
CALL DAWRITE(SYSUT1,COREREC~-1, DOPEVEC); 
DSCHANGE-'0'!B; — 
CORINDEX-CORINDEX-1; 
COREREC-RECNUM(CORINDEX); - 
CALL DAREAD(SYSUTI,COREREC- 1, DOPEVEC) ; 
END; 

END; 


/* LOCATE LEXICOGRAPHIC POSITION IN USED */ 
ILOWz1; | 
IHIGH-USED; 
DO WHILE (IHIGH>=ILOW) ; 
TRIAL- (IHIGH4ILOW)/2; 
/* TAKE ABNORMAL EXIT IF SYMBOL ALREADY EXISTS */ 
IF TABNAME(TRIAL)-PUTNAME THEN GO TO FOUNDXIT; 
IF TABNAME(TRIAL)<PUTNAME THEN ILOW=TRIAL+1; 
ELSE IHIGH=TRIAL- 1: 
END; 


/* SHIFT THE ENTRIES DOWN TO MAKE ROOM */ 
DO KP-USED TO ILOW BY -1; 

TABLE (KP+1) “ΕΡΕ 

END; 


/* MOVE THE SYMBOL INTO A FREE ENTRY */ 
TABNAME (ILOW)-PUTNAME; 
TABATTR (ILOW) =PUTATTR; 

USED=USED+1; 

DSCHANG E="1'B; 


/* MOVE THE SYMBOL TO LATEST POSITION IN IN-CORE TABLE */ 
CALL SAVNEWST (PUTNAME,PUTATTR); 


GO TO NOFNDXIT; 
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/* SUBROUTINE GETSYM: 
f* FUNCTION: EXTRACT AN ENTRY FROM THE SYMBOL TABLE */ 
/* INPUTS: GETNAME - NAME TO FIND, CHAR(8) κ 
/* OUTPUTS: GETATTR - ATTRIBUTES OF GETNAME, CHAR (LATTR) */ 
/* GETCODE - RETURN CODE, FIXED(15) */ 
/* 0 = NAME NOT FOUND */ 
/* 1 = NORMAL (NAME FOUND) */ 
/* | NOTHING RETURNED IF GETCODE = 0. */ 
y* */ 
fO Rok Rok ERE EER EAR ERE tokokokeeolkookoledexeokeokoteookeieetolokeoetojeletekokotetotekotokeoleokeokotolokek / 


GETSYM: ENTRY (GETNSDV,GETASDV, GETCODE) ; 


DCL GETNSDV POINTER (31); 
DCL GETASDV POINTER (31); 


DCL GETNAME CHAR(8) BASED (GETNSDV); 
DCL GETATTR CHAR(LATTR) BASED (GETA$DV); 
DCL GETCODE FIXED(15); 


DCL KG FIXED(15); 


/* LOOK FOR NAME IN IN-CORE TABLE */ 
CALL SRCHCORE (GETNAME, KG) ; 


/* IF FOUND, JUST EXTRACT ATTRIBUTES Κλ 
IF KG-=0 THEN DO; 
CALL MAKNEWST (KG) 2 
GETATTR=COREATTR (KG) ; 
GO TO FOUNDXIT; 
END; 


/* IF NOT IN CORE, FETCH APPROPRIATE DISK RECORD */ 
CALL LOCS8REC (GETNAME) : | | 


/* SEARCH USED ELEMENTS FOR GETNAME */ 
CALL SRCHDISK(GETNAME,KG) ; 


/* TAKE ERROR EXIT IF NOT FOUND ON DISK */ 
IF KG-0 THEN GO TO NOFNDXIT; 


/* EXTRACT ATTRIBUTES TO RETURN */ 
GETATTR-TABATTR(KG); 


/* MOVE THE SYMBOL TO LATEST POSITION IN IN-CORE TABLE */ 
CALL SAVNEWST (GETNAME, GETATTR) ; 


GO TO FOUNDXIT; 
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/* */ 
/* SUBROUTINE MODSYM: | κ 
/* PUNCTION: MODIFY ATTRIBUTES OF A SYMBOL TABLE ENTRY * / 
/* INPUTS: MODNAME ~ NAME TO MOL, CHAR(8) */ 
/* MODATTR  - NEW ATTRIBUTES OF ΚΟΌΝΆΒΕ, CHAR (LATTR) υπ 
/* | 0 = NAME NOT FOUND */. 
/* 1 = NORMAL (NAME FOUND) */ 
/* ATTRIBUTES NOT STORED IF MODCODE = 0 */ 
Fk * 7 


PERERA IAEA IEA SARA AOA TIT ST IST TAIT IIASA 
MODSYM: ENTRY (MODNSDV, MODASDV,MODCODE) ; 


DCL MODNSDV POINTER (31); 
DCL MODASDV POINTER (31): 


DCL MODNAME CHAR(8) BASED (MODNSDV); 
DCL MODATTR CHAR(LATTR) BASED (MODA$DV); 
DCL MODCODE FIXED(15); 


DCL KM FIXED(15); 


/* LOOK FOR NAME IN IN-CORE TABLE */ 
CALL SRCHCORE (MODNAME, KM) ; 


/* IF FOUND, JUST REPLACE ATTRIBUTES */ 
IF ΚΗ-Ξ0 THEN DO; 
CALL MAKNEWST (KM) ; 
COREATTR (KM) =MODATTR; 
RCHANGE (KM) z* 1! B; 
RCHANGES-'1'B; 
GO TO FOUNDXIT; 
END; 


/* IF NOT IN CORE, FETCH APPROPRIATE DISK RECORD */ 
CALL LOCSREC ee E) 


/* SEARCH USED ELEMENTS FOR MODNAME */ 
CALL SRCHDISK(MODNAME,KM) 2 


/* TAKE ERROR EXIT IF NOT FOUND ON DISK */ 
IF KM=0 THEN GO TO NOFNDZIT; 


/* MOVE THE SYMBOL TO LATEST POSITION IN IN-CORE TABLE κ 
CALL SAVNEWST (MODNAME, MODATTR) ; 


RCHANGE (CSNEWEST) ="1'B; 
RCHANGES='1'B: 
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/* INDICATE SYMBOL-FOUND AND EXIT */ 
FOUNDXIT: 

PUTCODE /* OR GETCODE OR MODCODE */ 21; 

RETURN; 


/* INDICATE NOT-FOUND AND EXIT */ 
NOFNDXIT: 

PUTCODE /* OR GETCODE OR MODCODE */ -0; 

RETURN; 
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/* */ 
/* SUBROUTINE ENDSYM: 7 */ 
/* FUNCTION: SET UP FOR READSYM TO READ SYMBOLS SEQUENTIALLY */ 
/* INPUTS: NONE | x. 
/* OUTPUTS: NONE */ 
/* | */ 
foh eb Ἡς ας Ἡς ee eoe he oe Ἡς RE e e EEK AEE HEE eoe oe oc ooteteeketteooeeke dete goeekeeekeke ke dete dee / 


ENDSYM: ENTRY; 
NEXTI=1; 
NEXT J=1; 
READING-'1*'B; 


RETURN; 


Page 172 The Rand Computation Center: R-1555/11 
| RL/S Language Reference Manual ! 


fk κα Me κ κ oie KI coke oec oic kc ole e oe ας ole k k oec KKH KE ΑΚ KH kk EK tete xxx KERR ERE deese e eoe eek 7 
f* | */ 
/* SUBROUTINE READSYM: */ 
/* FUNCTION: FETCH SYMBOL TABLE ENTRIES IN LEXICOGRAPHIC ORDER */ 
7 INPUTS: NONE */ 
/* OUTPUTS: READNAME - SYMBOL NAME, CHAR (8) */ 
/* READATTR - ATTRIBUTES OF READNAME, SEAR(SATIN) * / 
/* READCODE - RETURN CODE, FIXED(15) */ 
/*® 0 = NORMAL (NAME FETCHED) */ 
/* 1 = END OF FILE © d 


Ανν 
READSYM: ENTRY (READNSDV,READA$SDV,REALCODE); 


DCL READNSDV POINTER(31); 
DCL READASDV POINTER (31); 


DCL READNAME CHAR(8) BASED (READNS$DY):; 
DCL READATTR CHAR(LATTR) BASED (READASDY); 
DCL READCODE FIXED(15); 


DCL KR FIXED(15); 


d READMORE: 
CALL LOCSRESC(DICTNAME(NEXTI)):; 
IF NEXTJISUSED THEN DO; 
NEXTI-NEXTI*1; 
IF NEXTIDNUMREC THEN DO; 
READCODE=1; 
READING=! 0'B; 
RETURN; 
END; 
NEXTJ=1; 
GO TO READMORE; 
END; 
READNAME=TABNAME (NEXT) 3. 
CALL SRCHCORE (READNAME, KR) 3 | 
/* RETURN IN-CORE ATTRS IF PRESENT, OTHERWISE DISK ATTRS */ 
IF KRo-0 THEN | 
READATTR=COREATTR (KR); 
ELSE READATTR=TABATTR (NEXTJ) 2 
NEXTJ=N EXTJ+1; 
RFA DCODE=0; 


RETURN; 
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/Á* 


SUBROUTINE LOCS8BEC: 


FUNCTION: BRING NEEDED DISK RECORD INTO CORE 
INPUTS: LOCNAME - NAME TO LOCATE, CHAR(8) 
OUTPUTS: NONE | | 


LOC8REC: PROC(LOCNAME); 


DCL LOCNAME CHAR(8); | 
DCL (IRECORD,HIBOUND,LOWBOUND,TRIALOC) FIXED(15); 


DCL BNAME CHAR(8); 


/* IF THERE IS BUT ONE RECORD, WE MUST BE RIGHT */ 
IF NUMREC-1 THEN RETURN; e ο 


/* SEE IF WE ALREADY HAVE THE RIGHT RECORD */ 
BNAME-LOCNAME; 
IF BNAHEX-DICTNAME(CORINDEX) 5 

(CORINDEX-1 | BNAMEDDICTNAME(CORINDEX-1)) THEN RETURN; 


/* BINARY SEARCH FOR APPROPRIATE DISK RECORD NUMBER */ 
LOWBOUN D=0; 
HIBOUND-NUMREC; 
DO WHILE (HIBOUND-LOWBOUND»1); 
TRIALOC= (LOWBOUND#+HI BOUND) /2; 
IF BNAME>DICTNAME(TRIALOC) THEN LOWBOUND=TRIALOC; 
ELSE HIBOUND=TRIALOC; 
END; 
TRECORD=RECNUM (HI BOUND) ; 


IF DSCHANGE-!1'B THEN DO; 
CALL UPDB8REC; 
CALL DAWRITE(SYSUT1,COREBEC- 1,DOPEZVEC) ; 
DSCHANGE="0' B; 
END; 
CALL DAREAD (SYSUT1, [RECORD-1,DOPEVEC) ; 
COREREC-IRECORD; 
CORINDEX-HIBOUND; 


BETURN; 
END LOCBREC; 


| p—————— HÓA 
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/* SUBROUTINE UPDBREC: */ 
/* FUNCTION: UPDATE DISK BUFFER FROM IN-CORE TABLE */ 
/* INPUTS: NONE ο X*J 
/* OUTPUTS: SETS DSCHANGE IF DISK BUFFER MODIFIED */ 
/* | SETS (RESETS) RCHANGES IF ANY (NONE) CHANGED */ 
/* ENTRIES REMAIN IN IN-CORE TABLE */ 


J AREER dokokodolokoleotolelekoketokedejok SE ERK EEEE EEEE ERE REE EEK EEK EE EKER ERE EERE / 
UPDBREC: PROC; 


DCL (KU,LU) FIXED (15); 
DCL UNAME CHAR(8); 


/* IF NO CHANGES, NOTHING TO UPDATE */ 
IF RCHANGES='0'B THEN RETURN; 


RCHANGES='0'B; 


/* PROCESS ALL IN-CORE TABLE ENTRIES */ 
KU-CSNEWEST; Ἢ 


DO WHILE(KU-^-0); 
IF RCHANGE(KU)-'1'B THEN DO; 
UNAME-CORENAME(KU); 


/* IF IN CURRENT RECORD, UPDATE DISK BUFFER */ 
IF UNAMEX-DICTNAME(CORINDEX) δ. 

(CORINDEX-1 | UNAME»DICTNAME(CORINDEX-1)) THEN DO; 
CALL SRCHDISK (UNAME,LU); 
TABATTR (LU) =COREATTR (KU) ; 

RCHANGE (KU) 2! 0*8; 
DSCHANGE-Z'1'B; Ἢ 
END; 

ELSE BCHANGES-! 1:18; 


END; 


KU=OLDER (KU) ; 
EN D; 


RETURN; 
END UPDSREC; 
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/* */ 
/* SUBROUTINE SRCHCORE: */ 

/* FUNCTION: LOOK FOR SYMBOL IN IN-CORE SYMBOL TABLE */ 
/* INPUTS: SRCHNAME - NAME TO LOCATE, CHAR(8) */ 
f/* OUTPUTS:  SRCHFND - INDEX OF SYMBOL IF FOUND, OR ZERO */ 


D—————————————————————————————————————Q 
SRCHCORE: PROC (SRCHNAME, SRCHFND) ; 


DCL SRCHNAME CHAR(8), SRCHFND FIXED(15); 
DCL (JSBCH,QSRCH) FPFIXED(15); 


/* EXIT IF SYMBOL TABLE IS EMPTY */ 
IF CSNEWEST=0 THEN DO; 

SRCHFND=0; 

RETURN; 

END; 


/* TO SAVE TIME, FIRST SEE IF THIS IS THE NEWEST */ 
IF CORENAME(CSNEWEST) -SRCHNAME THEN DO; 
ΗΕ | 
RETURN; | 
END; 


/* IF NOT, THEN HASH NAME AND CHASE THRU HASH CHAINS */ 
CALL HASHFCN(SRCHNAME,OSRCH) ; 
JSRCH-HASHTAB(QSRCH) ; 


DO WHILE (JSRCH-~=0) ; 
IF CORENANE (JSRCH) -SRCHNAME THEN DO; 
SRCHFND=JSRCH; 
RETURN; 
END; 
ELSE JSRCH=HASHPTR (JSRCH) 3 
END; 
SRCHFND=0; 
RETURN; 
END SRCHCORE; 
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/* 


/* SUBROUTINE SRCHDISK: 


/* 


FUNCTION: LOOK FOR SYMBOL IN DISK BUFFER 
INPUTS: SDNAME - NAME TO LOCATE, CHAR(8) 
OUTPUTS:  SDFOUND - INDEX OF SYMBOL IF FOUND, OR ZERO 


SRCHDISK: PROC (SDNAME,SDFOUND) ; 


DCL SDNAME CHAR(8), SDFOUND FIXED (15) ; 
DCL (ISD,LO,HI) FIXED(15); 


LO=13 
HI=0SED;3 


SRCHDSK 1: 


IF HI«LO THEN DO; 
SDFOUND-0; 
RETURN: 
END; 
ISD= (HI+L0) /2;3 
IF TABNAME(ISD)-SDNAME THEN DO; 
SDFOUND-ISD; 
RETURN; 
END; | 
IF TABNAME(ISD)>SDNAME THEN HI-ISD-1; 
ELSE LO-15D*1; 
GO TO SRCHDSK!; 
END SRCHDISK; 


d 


* 


| f 5 koe RK ERK eei c alc c KEK EK ooo oe se dc exc oe xe ole aoc ooo c oe kc ole ke ee ooo ας ἃκ ας ας ας xe se ete ek eEEKK 7 


x κ 
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| SUBROUTINE SAYNEWST: | 
FUNCTION: STORE A SYMBOL AS NEWEST ENTRY IN IN-CORE TABLE 
INPUTS; SAVENAME ~ NAME TO ADD, CHAR (8) | 
SAVEATTR - ATTRIBUTES OP SAVENAME, CHAR(LATTR) 
OUTPUTS: NONE 


SAVNEWST: PROC(SAVENAME,SAVEATTR) ; 


DCL SAVENAME CHAR(8), SAVEATTR CHAR{LATTR) ; 
DCL (KS,ISAV,JSAV,KSAV,OSAY) FIXED(15); 


IF CSFREE=0 THEN DO; 


ISAV-CSOLDEST; 


/* UPDATE DISK ENTRY FOR OLDEST IF NECESSARY */ 
IF RCHANGE(ISAV)="1'B THEN DO; 


/* FETCH APPROPRIATE DISK RECORD INTO CORE */ 
CALL LOC8REC (CORENAME(ISAY)) ; 

CALL UPDBREC; 

END; 


/* DELETE OLDEST FROM HISTORY CHAINS */ 
JSAV=NEWER (ISAV); 

OLDER(JSAV)-0; 

CSOLDEST=JSAV; 


/* DELETE OLDEST FROM HASH CHAIN */ 
CALL η... ESSE QSAV) ; 
JSAV=0; 
KS AV=HASHTAB (O0SAV) ; 
DO WHILE (KSAV--ISAV); 
JSAV-KSAY; 
KSAV-HASHPTR (KSAY) ; 
END; 
IF JSAV=0 THEN HASHTAB(QSAV) -HASHPTR(ISAV); 
ELSE HASHPTR(JSAV) -HASHPTR (I5AV) ; 


/* CHAIN OLDEST ONTO FREE LIST */ 
HASHPTR (ISAV)-CSFREE; 

CSFREE=ISAV;3 

END; 


/* STORE SYMBOL AND ATTRIBUTES IN FREE ELEMENT */ 
ISAV-CSFREE; 

CORENAME (ISAV) -SAVENAME; 
COREATTR(ISAV)=SAVEATTR; | 

RCHANGE (ISAV)="0'B; 

CSFREE-HASHPTR (ISAV); 


EEE AERA AE ως 
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/* SET POINTERS ON HISTORY CHAINS */ 
JSAV=CS NEWEST; 

IF JSAV=0 THEN CSOLDEST-ISAY; 

ELSE NEWER (JSAV)=ISAV; 

NEWER {ISAV)=0; 

OLDER (ISAV) =JSAV: 


CSNEWEST-ISAY; 


/* INSERT SYMBOL AT BEGINNING OF HASH 
CALL HASHFCN(SAVENAME,QSAV) ; 

HASHPTR (I15AV) -HASHTAB (OSAV) ; 

HASHTAB (QSAV) -ISAVY; 

RETURN; 

END SAVNEWST; 


CHAIN */ 
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/* | | */ 
/* SUBROUTINE MAKNEWST: */ 
/κ FUNCTION: RECHAIN A SYMBOL AS NEWEST ENTRY IN IN-CORE TABLE */ 
/* INPUTS: NEWONE - CURRENT INDEX TO RECHAIN, FIXED (15) κκ 
/* OUTPUTS: NONE | */ 


J REISER RAKE AKER IR ER EEEE EEEE EEEE EEE ER EERE KEE EERE REE EER REE E / 
MAKNEWST: PROC (NEWONE) ; 


DCL NEWONE FIXED(15); 
DCL (IMAK,KMAK) FIXED(15); 


/* NO ACTION IF SYMBOL I5 ALREADY THE LATEST ENTRY */ 
IF CSNEWESTA=NEWONE THEN DO; 


/* MAKE FATHER (IMAK) AND SON (KMAK) POINT TO EACH OTHER */ 
IMAK=OLDER (NEWONE) ; 

KMAK=NEWER (NEWONE) ; 

OLDER (KMAK)=IMAK; | 

IF IMAK=0 THEN CSOLDEST=KMAK; 

ELSE NEWER (IMAK) =KMAK; 


/* INSERT SYMBOL (NEWONE) AS LATEST ENTRY */ 
NEWER (CSNEWEST) -NEWONE ; 

OLDER (NEWONE) -CSN EWEST ; 

NEWER(NEWONE) -0; 

CSNEWEST=NEWONE; 

END; 


RETURN; 
END MAKNEWST; 
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/* "4 
/* FUNCTION HASHFCN: | | | | 

f* FUNCTION: HASH A NAME INTO A SMALL INTEGER */ 
ΖῈ INPUTS: HASHNAME - NAME TO HASH, CHAR (8) | */ 
/* OUTPUTS: HASHVAL - HASH VALUE, FIXED(15) τ, 
/* l * / 


[BERR ERK ERE GREER ER ER EEK RIK EEE ERK EE EEE ES EEEE ERE REREK ARE ERER ER EEK / 
HASHFCN: PROC (HASHNAME, HASHVAL) ; 


DCL HASHNAME CHAR (8) ; 
DCL HASHVAL FIXED(15); 


HASH VAL= (HASHNAME (1:4) E£HASHNAME (528) ) //LHASHTAB + 1; 
END HASHFCN; 


END SYMTAB; 
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Appendix G 


This appendix contains a complete list of the diagnostic messages 
produced by the RL/S compiler. Each message is accompanied by a 
brief description of the circumstances under which the message 


appears. | 


ICO00011I 


ICOD0002I 


1CO0003I 


ICOO00UI 


ICO00051 


RL/5 COMPILER ERROR (COMPILATION TERMINATED) 


A program error has occurred in the compiler. Please 
save all supporting information and report this error. 
to the Rand Computation Center staff. 


DUPLICATE DECLARATION FOR VARIABLE "xxx" IGNORED τ. 

The indicated variable was previously declared. BL/S 
does not allow multiple declarations of the same 
variable name, even in those cases where the uses of 
the variables are in non-overlapping scopes. 


ILLEGAL STRUCTURE LEVEL NUMBER FOR VARIABLE "xxx" -- 

1 WAS ASSUMED 

The specified structure level number was 90, greater 
than 32767, or a value other than 1 as the first level 
of the structure, 


IMPLEMENTATION RESTRICTION -- LIMIT OF 15 STRUCTURE 
LEVELS HAS BEEN EXCEEDED FOR VARIABLE "xxx" | 
The indicated structure contains more than 15 nested 
structure levels at one or more points in its 
definition. The structure must be redefined to limit 
the nesting of structure levels to 15; see the uses of 
CHARACTER(0) variables as one possiblity. 


CONFLICTING OR REDUNDANT VARIABLE LENGTH SPECIFIED 

A length was previously specified for the variable and 
another length specification was encountered. The 
second length is redundant if it is the same as the 
original length and conflicting otherwise, Ἢ The 
redundant or conflicting length is ignored. . 


Page 182 


ICO00061 


1CO00071 | 


ICO00081I 


ICO00091 


ICO0010I 


The Rand Computation Center: | R-1555/11 
RL/S Language Reference Manual 


CONFLICTING OR REDUNDANT VARIABLE DATA TYPE SPECIFIED 
A data type was previously specified for the variable 
and another data type specification was encountered. 
The second data type is redundant if it is the same as 
the original data type and conflicting otherwise, The 
redundant or conflicting data type is ignored., 


ILLEGAL USE OF VARIABLE "xxx" AS A PARAMETER IN 
MULTIPLE PROCEDURES 
The indicated variable was previously used as a 


. parameter in another procedure, RL/S does not allow 


parameter variable names to be used in more than one 
procedure, 


INCOMPATIBLE ATTRIBUTE "xxx" SPECIFIED FOR 


VARIABLE "yyy" 


The indicated variable was declared with the indicated 
attribute which conflicts with the other attributes 
declared for the variable. The incompatible attribute 
is ignored. . 


INCOMPATIBLE ATTRIBUTES SPECIFIED FOR VARIABLE "xxx" 
The indicated variable was declared with one or more 
attributes which conflict with the other attributes 
declared for the variable, . The incompatible 
attributes are ignored, . 


IMPLIED LENGTH OF VARIABLE "xxx" EXCEEDS 32767 BYTES 
If the indicated variable is dimensioned, then the 
total length of the variable after applying all 
dimensions exceeds the implementation limit of 32767 
bytes. If the indicated variable is a structure 
variable, then the total length of its subcomponents 
exceeds the implementation limit of 32767 bytes.. 
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ILLEGAL USE OF VARIABLE "xxx" AS A PARAMETER 

The indicated variable was previously used as 
other than a parameter or aS a parameter in another 
procedure. RL/S does not allow multiple declarations 
of the same variable name, even in those cases 
where the uses of the variables are in 
non-overlapping scopes. 


COMMENT CONTAINS "xxx" -- COMMENT TERMINATOR "*/" MAY 
BE MISSING OR MISPLACED 

A comment containing either a ";" or a "/*" was 
encountered. This message is a warning that program 
text may have been treated as a comment because of a 
missing or mispalced comment terminator. | 


INVALID BOUNDARY SPECIFICATION DECLARED FOR STRUCTURE 
VARIABLE "xxx" 

The indicated structure variable has a user specified 
BOUNDARY specification which is less restrictive than 
the BOUNDARY Specification ος its immediate 
components. | m 


IMPLIED STRUCTURE OFFSET FOR VARIABLE "xxx" EXCEEDS 
4095 BYTES | 

The offset from the beginning of the containing 
structure to the beginning of the indicated variable 


exceeds the (temporary) implementation limit of 4095 


bytes. 


AUTOMATIC ATTRIBUTE SPECIFIED IN A NON-BEENTRANT 
ENVIRONMENT 

A variable was declared with the AUTOMATIC attribute 
although the REENTRANT option was not specified on the 
external procedure. The AUTOMATIC attribute was 
ignored, | 
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IMPLIED BOUNDARY "xxx" ASSIGNED TO STRUCTURE 

VARIABLE "yyy" 

The indicated structure variable did not have a user 
specified BOUNDARY specification. . The BOUNDARY 
assigned is the most restrictive BOUNDARY | 
specification of its immediate components, . 


MORE THAN 15 DIMENSIONS SPECIFIED IN DECLARATION OF 
VARIABLE "xxx" 

The total number of dimensions declared for the 
indicated variable exceeds the implementation limit of 
15. : 


ILLEGAL SIMPLE FORM OF GENERATE STATEMENT 
The simple form of a GENERATE statement was used but 


the compiler was unabie to find the closing 


parenthesis, indicating the end of the assembler 
language statement, on the same line as the opening 
parenthesis. | The assembler language statement and 
it's enclosing parentheses must be coded on a single 
source line. 


ILLEGAL CHARACTER IN SOURCE STATEMENT NEAR TEXT 
BEGINNING "xxx" 

A character which is not in the Character set of  RL/S 
aa encountered near the indicated text. The legal 
characters in RL/S, outside of quoted character string 
constants, are:  A-Z, 0-9, and the special characters 
"ni-*/I1&«»-at$'"(0[ jz; "e | 


STATEMENT CONTAINS AN INVALID BIT STRING CONSTANT 
The statement contains a bit string constant that 
includes a character other than 0 or 1.. 
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STATEMENT CONTAINS AN INVALID HEX STRING CONSTANT 
The statement contains a hex string constant that 
includes a character other than 0-9 or A-F.. 


IMPLEMENTATION RESTRICTION -- LIMIT OF 256 CHARACTERS 
FOR STRING CONSTANTS HAS BEEN EXCEEDED | 
The external representation of string constants is 


limited to 256 characters, not including any doubling 


apostrophes or quotes, . Thus, character string 
constants may define 256 bytes; hex string constants 
may define 128 bytes; and bit string constants may 
define 32 bytes. 


IMPLEMENTATION RESTRICTION -- LIMIT FOR NUMBER OF 
CHARACTERS IN STRING CONSTANTS IN A STATEMENT HAS BEEN 
EXCEEDED | | 

The combined total of all characters in string 
constants in a single statement may not exceed the 
implementation limit of 1000,. | 


VARIABLE NAME "xxx" HAS BEEN TBUNCATED TO B CHARACTERS 
All variable names in RL/S are limited to 8 characters 
in length.. The truncated form of the indicated 
variable will be used by the compiler. 


IMPLEMENTATION RESTRICTION -- TEXT LOST BECAUSB OF 
EXCESSIVE LITERALLY SUBSTITUTIONS 

The compiler's internal work area was not large enough 
to contain all the text resulting from a literal data 
substitution. The literal data substitution was not 
performed, . 
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STATEMENT CONTAINS AN INVALID BINARY NUMBER 
The statement contains a binary number larger than 
21474836487 ((2**31)-1).. 


STATEMENT CONTAINS AN INVALID DECIMAL NUMBER 
The statement contains a decimal number larger than 
2147483647 ((2**31)-1). . 


MEMBER "xxx" NOT FOUND IN PDS WITH DDNAME "yyy" 

An INCLUDE statement specified a member of a 
partitioned data set that does not exist in the 
directory of the PDS. The INCLUDE statement was 
ignored. . | | 


PERMANENT I/O ERROR FOR DATA SET WITH DDNAME "xxx" 

A permanent I/O error was encountered in reading the 
data set specified on an INCLUDE statement. 
Processing of the INCLUDE statement was terminated. 


ERROR DURING OPEN FOR DATA SET WITH DDNAME "xxx" 

An error was encountered in opening the data set 
specified on an INCLUDE statement. This is probably 
caused by a missing DD-card or a misspelled DD-name in 
the JCL for the compile step.. The INCLUDE statement 
was ignored, - 
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TEXT FOLLOWING ENDGEN STATEMENT HAS BEEN IGNOBED 

An ENDGEN control statement may not contain any other 
source input on the same line; the remainder of the 
line was not processed by the compiler. 


IMPLEMENTATION RESTRICTION -- PARSE STACK EXCEEDED 
(COMPILATION TERMINATED) 

The compiler's parse tables are not large enough to 
process the program. This is probably caused by an 
excessive number of nested IF, DO, and/or PROCEDURE 
Statements, . 


SYNTAX ERROR: TEXT BEGINNING "xxx" IS ILLEGAL 

A syntax error has been encountered. The indicated 
text cannot be processed according to the RL/S grammar 
rules. | 


IMPLEMENTATION RESTRICTION -- PROCEDURE NESTING LIMIT 
OF 15 LEVELS HAS BEEN EXCEEDED 

Internal procedures may be nested only toa depth of 
15. . 


END OF FILE OCCURS BEFORE LOGICAL END OF PROGRAN 

An end of file was encountered before the program was 
logically terminated. This is probably caused by an. 
insufficient number of END statements in the program.. 
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IMPLEMENTATION RESTRICTION -- PROGRAM REQUIRES TOO 
MANY FULLWORD TEMPORARIES 

The program requires more fullword  temporaries for 
code generation than the current implementation. 
allows. Break the program into smaller pieces and 
rerun the compilations. 


IMPLEMENTATION RESTRICTION ~~ PROGRAM REQUIRES TOO. 
MANY STRING TEMPORARIES 

The program requires more string temporaries for code 
generation than the current implementation allows. | 
Break the program into smaller Pieces and  rerun the 
compilations. 


CONFLICTING PROCEDURE OPTIONS SPECIFIED FOR 

PROCEDURE "xxx" 

The procedure options specified or implied for the 
indicated procedure contain two or more conflicting 
options. | 


ILLEGAL SIZE SPECIFIED IN SAVEAREA OPTION 
The SAVEAREA option specified a size less than. the 
minumum of 8 bytes. 


ILLEGAL REGISTER SPECIFIED IN CODEREG OPTION 

A register other than 2-12 or one that was previously 
specified in the DATEREG option was specified in the 
CODEREG option.. 
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ILLEGAL REGISTER SPECIFIED IN DATAREG OPTION 
A register other than 2-12 or one that was previously 
specified in the CODEREG option was specified in the 
DATAREG option. m 


ILLEGAL SUBPOOL OR HIERARCHY SPECIFIED IN OS OPTION 
The SUBPOOL or HIERARCHY option was specified in the 
OS option on the external procedure and a value other 
than 0-255 for the  SUBPOOL option or 0-1 for the 
HIERARCHY option was given. This error message is 
also given if SUBPOOL or HIERARCHY is specified 
redundantly. . 


IMPLEMENTATION RESTRICTION -- INTERMEDIATE CODE 
GENERATION STACK OVERFLOW 

The statement is too complex to be compiled with the 
current implementation. Break. the statement into a 
series of simpler statements and recompile the 
program. . | 


IMPLEMENTATION RESTRICTION -- INTERMEDIATE CODE 
GENERATION SYMBOL TABLE OVERFLOW 

The statement references too many variables to be 
compiled with the current implementation. Break the 
Statement into a series of simpler statements and 
recompile the program. . 


IMPLEMENTATION RESTRICTION -- INTERMEDIATE 


 NOT/UNTIL/ASSERT PROCESSING STACK OVERFLOW 


The statement contains a negated (possibly implied) 
relational expression that is too complex to be 
compiled with the current implementation. Break the 
statement into a series of simpler statements and 
recompile the program. ! 


x 2 
κ ο 
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IMPLEMENTATION RESTRICTION -- LIMIT OF 15 NESTING 
LEVELS FOR CASE STATEMENTS EXCEEDED 
CASE statements may only be nested to a depth of 15. 


NOPARMREG OPTION SPECIFIED AND ENTRY "xxx" DEFINES A 
PARAMETER LIST 

The NOPARMREG option was specified for a procedure and 
and the indicated PROCEDURE or ENTRY statement defined 


a parameter list.. 


VARIABLE "xxx" WAS CONTEXTUALLY DECLARED "yyy" 
No declaration was given for the indicated variable. 
The variable was was assigned the specified default 
data type and associated attributes based on its first 
usage in the program, 


LABEL "xxx" WAS NOT FOUND IN ANY PROCEDURE 
The indicated label was referenced or declared in the 
program but did not appear as the label of any 
statement, 


INTERNAL ENTRY "xxx" WAS NOT FOUND IN ANY PROCEDURE 
The indicated ENTRY name was referenced or declared in 
the program but did not appear as the ENTRY name on 
any internal PROCEDURE or ENTRY statement,. 


UT 
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ILLEGAL GENERATE DATA STATEMENT AS OBJECT OF THEN OR 
ELSE CLAUSE IN IF STATEMENT 

GENERATE DATA statements define data which is moved to 
the end of the program data area by the compiler and 
are not meaningful as the objects of THEN or BLSE 
clauses in IF statements. GENERATE CODE statements 
may be used as the objects of THEN or ELSE clauses in. 
IF statements. 


ILLEGAL SECOND REPLICATION FACTOR IN AN INITIALIZATION 
VALUE FOR VARIABLE "xxx" 

Multiple replication factors may be used only. in the 
initialization of string variables; «ς 
replication factors may be used in the initialization 
of non-string variables. | 


"Xxx" BYTES OF PADDING INSERTED BEFORE STRUCTURE 
VARIABLE "yyy" 

The indicated number of padding bytes were required to 
align the indicated structure variable on the proper 
boundary. 


"xxx" BYTES OF PADDING INSERTED AFTER THE ELEMENTS OF 
DIMENSIONED STRUCTURE VARIABLE "yyy" 
The indicated number of padding bytes were required to 
align successive elements of the indicated structure 
variable on the proper boundary. The padding is not 
inserted following the last element,. 


ILLEGAL USE OF "*" OPERATOB WITH THE ADDR BUILTIN 
FUNCTION IN THE INITIALIZATION OF VARIABLE "xxx" 
The multiplication operator ("*") may not be used with 
the ADDR builtin function in an initialization value 
when the ADDR builtin function references a 
relocatable expression. . | 


Eu f 
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ILLEGAL USE OF A VARIABLE WITH THE ADDR BUILTIN 
FUNCTION IN AN INITIALIZATION VALUE FOR VARIABLE "xxx" 
A variable which was was declared AUTOMATIC, BASED, 
DEFINED, parameter, or REGISTER was used with the ADDR 
builtin function in an initialization expression for 
the indicated variable. Only STATIC, LOCATION, and 
GENERATED variables may appear in initialization. 
expressions. The illegally used variable is indicated 


by error message ICO0089I. 


TOO MANY INITIALIZATION VALUES SPECIFIED FOR STRING 
VARIABLE "xxx" 

The initialization for the indicated variable, 
including any replication factors, specified more 
values than the number of elements declared for the 
variable. . 


TOO FEW INITIALIZATION VALUES SPECIFIED FOR STRING 
VARATBLE "xxx" | 

The initialization for the indicated variable, 
including any replication factors, specified fewer 
vaules than the number of elements declared for the 
variable. | | | 


ILLEGAL USE OF AN ARITHMETIC OPERATOR IN THE 
INITIALIZATION OF STRING VARIABLE "xxx" 

Arithmetic operators may not be used in the 
specification of initialization. values for string 
variables. | 


STRING CONSTANT TRUNCATED IN THE INITIALIZATION OF 
STRING VARIABLE "xxx" 

The initialization for the indicated variable 
Specified a value whose length, including any 
replication factors, was greater than. the length | 
declared for the nee et: 


i 7 
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ILLEGAL USE OF A NUMERIC CONSTANT IN THE 
INITIALIZATION OF STRING VARIABLE "xxx" 

Numeric constants may not be used in the specification 
of initialization values for string variables. 


ILLEGAL USE OF THE ADDR BUILTIN FUNCTION IN THE 
INITIALIZATION OF STRING VARIABLE "xxx" 

The ADDR builtin function may not be used in the 
specification of initialization values for string 
variables. _ | 


REGISTER 15 NOT AVAILABLE FOR USE IN CALL STATEMENT. 
Either the procedure being called requires an entry 
register or the call is an indirect reference to a 
procedure through a pointer variable and register 15 
was currently in use. 


ILLEGAL SUBSTRING EXPRESSION FOR NON-STRING 

VARIABLE "xxx" | 

A substring expression was specified for the indicated 
variable although the variable was not declared with 
either the . CHARACTER or BIT data type.. Valid 
substrings of non-string variables can be accomplished 
by defining a string variable on the non-string 
variable. 
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STRING CONSTANT TRUNCATED TO 4 BYTES 

The statement requires register operations and 
contains a string constant which is longer than 4 
bytes. Only string constants with a length less than 
or equal to 4 may be used in an expression requiring 
register operations. . 


NO FREE REGISTER AVAILABLE FOR COMPILER'S USE 

A free register was required for code generation and 
either none was available or all of the available free 
registers had been used and could not be stored in a 
temporary. You must free a register(s) that was 
assigned to some restricted register variable.. 


NO FREE REGISTER PAIR AVAILABLE FOR COMPILER'S USE 
An even-odd pair of free registers was required for 
code generation and either none was available or all 
of the available free pairs had been. used and could 
not be stored in temporaries, You must free one or 
more registers that were assigned to restricted 
register variables, . 


ILLEGAL USE OF LABEL VARIABLE "xxx" | 
Label variables may be used only as the object of GOTO 
and RETURN TO statements or as the argument of the 
ADDR builtin function... They may not be assigned 


values nor used in expressions, 


ILLEGAL SUBSCRIPT OR SUBSTRING EXPRESSION FOR REGISTER 
VARIABLE "xxx" | | 

The indicated register variable was illegally 
referenced with a subscript or substring expression. ` 


NET. Á 
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ILLEGAL USE OF REGISTER VARIABLE "xxx" AS THE ARGUMENT 
OF THE ADDR BUILTIN FUNCTION 

A register variable may not be used as the argument of 
the ADDR builtin function, 


ILLEGAL POINTER QUALIFICATION FOR NON-BASED 

VARIABLE "xxx" | 

An explicit pointer qualification was specified but 
the indicated variable was not declared as a based 
variable. | | 


INVALID SUBSTRING EXPRESSION FOR STRING VARIABLE "xxx" 
Either the specified beginning and/or ending locator 
is not valid for the indicated variabloe.. 


ILLEGAL USE OF STRING VARIABLE "xxx" IN AN ARITHMETIC 
EXPRESSION | 
The indicated variable has a length greater than 4 and 


no substring expression was specified or the specified 


substring expression yields a substring of the 
variable with a length greater than 4. Only variables 
or substringed portions of variables with a length 
less than or equal to 4 may be used in expressions 
requiring register operations. 


EQUAL LENGTH OPERANDS REQUIRED FOR SPECIFIED STRING 
OPERATION 

The string operations '&', |', and εδ. all 
comparisons, and all assignments of bit string 
constants to bit string variables that are not a 
multiple of 8 bits in length or are not aligned on a 
byte boundary require equal length operands. . 
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NON-BASED VARIABLE "xxx" USED IN AN ALLOCATE/FREE 
STATEMENT | 

The indicated variable was used in an ALLOCATE or FREE 
statement but did not have the BASED attribute. Only 
BASED variables may be used allocated and freed using 
the ALLOCATE and FREE statements. 


"xxx" IS AN UNRESTRICTED REGISTER VARIABLE 
The indicated register variable was referenced but was 
not RESTRICTED at the time of reference.. 


CONFLICTING BOUNDARY SPECIFIED FOR LOCATION VARIABLE 
"XXX" -- LOCATION ADJUSTED UPWARDS TO FIT BOUNDARY 

The specified location for the indicated variable does 
not meet the specified boundary requirement. The 
location of the variable has been adjusted upwards to 
the nearest location satisfying the boundary 
requirement,. | 


ILLEGAL USE OF STRUCTURE COMPONENT VARIABLE "xxx" IN 
RESPECIFY STATEMENT 

Only major structure variables may be re-based using 
the RESPECIFY statement. | The new base will 
automatically apply to all component variables of the 
structure, | 


IMPLEMENTATION RESTRICTION -- LIMIT OF 160 CHARACTERS 
FOR STRING CONSTANTS IN INITIALIZATION EXPRESSIONS HAS 
BEEN EXCEEDED FOR VARIABLE "xxx" 

A (temporary) . limit of 160 characters exists for 
string constants in initialization expressions. This 
limit includes the resulting expansion. of string 
constants with replication factors.. 
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ILLEGAL USE OF BIT VARIABLE "xxx" -- LENGTH IS NOT A 
MULTIPLE OF 8 BITS 

Bit string variables that are not a multiple of 8 bits 
in length can only be assigned and compared to bit 
string constants of equal length. All other uses of a 
bit string varaible require the variable to be a 
multiple of 8 bits in length.. 


ILLEGAL USE OF BIT VARIABLE "xxx" -- ALIGNMENT IS NOT. 

A BYTE BOUNDARY 

Bit string variables that are not aligned on a byte 
ΕΤ can only be assigned and compared to bit 
String constants of equal length. All other uses of a 

bit string varaible require the variable to be μος κά. 

on a byte boundary. 


ILLEGAL DATA TYPE FOR VARIABLE "xxx" AS OBJECT OP GOTO 
OR RETURN TO STATEMENT 

The indicated variable was not declared as POINTER or 
LABEL (only POINTER is allowed for register variables) 
and was used as the object of a GOTO or RETURN TO 
Statement. 


VARIABLE "xxx" USED IN AN ILLEGAL CONTEXT. 

The indicated variable appears in a context that 
conflicts with its declared attributes. Check all 
uses of the variable to locate the invalid context and 
usage. . 


VARIABLE "xxx" USED IN ILLEGAL CONTEXT "yyy" 

The indicated variable appears in the § indicated 
context that conflicts with its declared attributes.. 
Check all uses of the variable to locate the invalid 
usage. . 
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NO FREE REGISTER AVAILABLE FOR USE AS A CODE REGISTER 
No CODEREG option was specified on the external 
PROCEDURE statement and the compiler was unable to 
find an unrestricted register to assign as a code 
register. You must free a register that was assigned 
to some restricted register variable. . 


NO FREE REGISTER AVAILABLE FOR USE AS A DATA REGISTER 
No DATAREG option was specified on the external 
PROCEDURE statement and the compiler was unable to 
find an unrestricted register to assign as a data 
register. You must free a register that was assigned 
to some restricted register variable,. 


PARAMETER "xxx" WAS PREVIOUSLY USED IN A DIFFERENT 
POSITION IN A PROCEDURE OR ENTRY PARAMETER LIST. 

The indicaed parameter appears in two different places 
in PROCEDURE or ENTRY statement parameter lists. All 
uses of a parameter name must be in the same place in 
every parameter list. 


ILLEGAL USE OF VARIABLE "xxx" WITH THE ADDR BUILTIN 
FUNCTION IN AN INITIALIZATION VALUE 

The indicated variable was declared AUTOMATIC, BASED, 
DEFINED, parameter, or REGISTER and was used with the 


ADDR builtin function in an initialization expression. 


Only STATIC, LOCATION, and GENERATED variables may 
appear in initialization expressions, The illegally 
initialized variable is indicated by error message 
ICO00561. 


REQUIRED SUBSTRING EXPRESSION NOT SPECIFIED FOR. 
VARIABLE "xxx" | | 

The indicated variable was declared with an undefined 
string length and requires a substring expression when 
used in an expression. . 
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ae | 
LENGTH OF VARIABLE "xxx" IS GREATER THAN 256 

The indicated variable was declared with a string 
length greater than 256 and requires a substring 
expression when used in an expression. . 


REQUIRED POINTER QUALIFICATION NOT SPECIFIED FOR 
VARIABLE "xxx" | | 

The indicated based variable currently has no defining 
base pointer and requires an explicit pointer 
qualification when referenced.. 


 PROGRAMMER-SUPPLIED EPILOG WITH NAME "xxx" IS REQUIRED 


The NOEPILOG option was specified on the PROCEDURE 
Statement and the procedure contains a RETURN 
Statement. A programmer-supplied epilog with the 
indicated name must be provided.. 


TOO FEW ARGUMENTS SPECIFIED IN CALL FOR ENTRY "xxx" 
The PROCEDURE or ENTRY statement for the indicated 
entry point defines more parameters than the number of 
arguments in the current CALL statement, 


TOO MANY ARGUMENTS SPECIFIED IN CALL FOR ENTRY "xxx" 

The PROCEDURE or ENTRY statement for the indicated 
entry point defines fewer parameters than the number 
of arguments in the current CALL statement. 
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TRUE LENGTH OF STBUCTURE "xxx" IS INDETERMINATE -- 
ALLOCATED STORAGE MAY BE INADEQUATE 

The indicated structure contains one or more 
components which have either an indeterminate length 
or an indeterminate leftmost dimension. The compiler 
will calculate storage for the structure by treating 
any indeterminate lengths as zero and an indeterminate 
leftmost dimension as one, . 


ILLEGAL REFERENCE TO INDETERMINATE LENGTH VARIABLE 
"xxx" WITH LENGTH BUILTIN FUNCTION 

The indicated variable was declared with an 
indeterminate length and referenced as the argument of 
the LENGTH builtin function. . 


ILLEGAL REFERENCE TO INDETERMINATE DIMENSION FOR 
VARIABLE "xxx" WITH DIM BUILTIN FUNCTION 

The indicated variable was declared with an 
indeterminate leftmost dimension and referenced as the 
only argument of the DIM builtin function or as an 
argument of the DIM builtin function requesting the 
Size of the leftmost dimension. 


ILLEGAL COMPARISON FOR BIT VARIABLE "xxx" -- ONLY "=" 
AND "n=" ARE ALLOWED 

Bit string variables that are woe a multiple of 8 bits 
or are not aligned on a byte boundary may only be 
compared to bit string constants using the d CoL 
operators =t and 'n=', 


REGISTER VARIABLE "xxx" USED AS AN ARGUMENT IN A CALL 
STATEMENT -- A TEMPORARY WAS USED 
Register variables used as arguments in a CALL 


Statement are passed through temporary variables. Any. 


modifications to the corresponding procedure parameter 
will not be reflected in the value of the register 
variable itself upon return from the called procedure. - 
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STATEMENT PRECEEDS THE LOGICAL BEGINNING OF THE 
EXTERNAL PROCEDURE 

The flagged statement preceeds the PROCEDURE statement 
of the external procedure, This may be caused by an 
error on the external PROCEDURE statement itself. 
(This error message is written only once.) 


STATEMENT FOLLOWS THE LOGICAL END OF THE EXTERNAL 
PROCEDURE 

The flagged statement (and all statements following 
it) follow the END statement of the external 
procedure. This is probably caused by ah excessive 
number of END statements in the program. (This error 
message is written only once.) | 


TEXT FOLLOWING CONTROL STATEMENT HAS BEEN IGNORED 


A control statement may not contain any other source 
input on the same line; the remainder of the line was 
not processed by the compiler. - 


LABEL ON PROCEDURE END STATEMENT DOES NOT MATCH 
PROCEDURE NAME "xxx" 

The flagged END statement logically  terminates the 
indicated procedure but contains a label name that 
does not match the procedure name...  (RL/S does not 
allow multiple closure with END statements.) This is 
probably caused by an invalid number of END statements 


in the program. 


PROCEDURE STATEMENT FOLLOWS THE LOGICAL END OF THE 
EXTERNAL PROCEDURE | mE 
The flagged PROCEDURE statement follows the logical 
end of the external procedure. This is probably 
caused by an excessive number of END statements in the 
program, or a missing or invalid PROCESS control 
statement, - 


^ 
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IMPLEMENTATION RESTRICTION -- "xxx" TEXT FOR 

VARIABLE "yyy" HAS BEEN TRUNCATED TO 60 CHARACTERS 
The current implementation limits all LITERALLY, 
CONSTANT, and PROCESS options text to 60 characters, | 
Longer LITERALLY text may be divided into smaller 
pieces through the introduction of additional 
LITERALLY variables. . 


ILLEGAL USE OF VARIABLE "xxx" AS TARGET OF CALL 
The indicated variable was used as the target of a 
CALL statement but did not appear as the label on a 
PROCEDURE or ENTRY statement, nor was declared with 
the ENTRY attribute. . 


LABEL ON DO GROUP END STATEMENT DOES NOT MATCH ANY 
LABEL ON THE DO STATEMENT | 

The flagged END statement logically terminates the 
indicated DO statement but contains a label name that 
does not match any label on the DO statement. (RL/S 
does not allow multiple closure with END statements.) 
This is probably caused by an invalid number of END 
Statements in the program, 


ILLEGAL PRECISION SPECIFIED 

The precision specified for a FIXED BINARY or POINTER 
variable is illegal. FIXED BINARY and POINTER 
variables may have a precision of 15 or 31 if SIGNED, 
and a precision of 8, 16, 24%, or 32 if UNSIGNED,. 


ILLEGAL STRING LENGTH SPECIFIED -- 1 WAS ASSUMED 

The length specified for a CHARACTER or BIT variable 
is illegal.. CHARACTER and BIT variables may have a 
length in the range of 1 to 32767. 
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ILLEGAL, CONFLICTING OR REDUNDANT DEFINED ATTRIBUTE 
SPECIFIED 

The DEFINED attribute was specified for a variable and 
either it was illegally specified or it is redundant... 
A redundant specification is considered conflicting if 
it is not the same as the original specification. The 
attribute specification was ignored. . 


ILLEGAL, CONFLICTING OR REDUNDANT POSITION ATTRIBUTE 
SPECIFIED 

The POSITION attribute was specified for a variable 
and either it was illegally specified or it is 
redundant. A redundant specification is considered 
conflicting if it is not the same as the original 
specification. | The attribute specification was 
ignored. : 


ILLEGAL, CONFLICTING OR REDUNDANT BOUNDARY ATTRIBUTE 
SPECIFIED 

The BOUNDARY attribute was specified for a variable 
and either it was illegally specified or it is 
redundant... A redundant specification is considered 
conflicting if it is not the same as the original 
specification. | The attribute specification. was 
ignored. . 


ILLEGAL, CONFLICTING OR REDUNDANT REGISTER NUMBER 
SPECIFIED | 
The REGISTER attribute was specified for a variable 
and either it specified an illegal register number or 
it is redundant.. A redundant specification is 
considered conflicting if it is not the same as the 
original specification. The attribute specification 
was ignored.. 


ILLEGAL, CONFLICTING OR REDUNDANT LOCATION ATTRIBUTE 
SPECIFIED 

The LOCATION attribute was Specified for a variable 
and either it was illegally specified or it is 
redundant... A redundant specification is considered 
conflicting if it is not the same as the original 
specification. . The attribute specification was 
ignored. . 
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ILLEGAL DIMENSION BOUND SPECIFIED-- 1 WAS ASSUMED | 
The specified dimension bound was not a value in the 
range of 1 to 32767. 


ILLEGAL DATA TYPE SPECIFIED FOR CONSTANT VARIABLE 
A LABEL or ENTRY variable was declared with the 
attribute CONSTANT, | Only FIXED BINARY, POINTER, 


CHARACTER, and BIT variables may be given the 


attribute CONSTANT, | 


ILLEGAL, CONFLICTING OR REDUNDANT BASED ATTRIBUTE 
SPECIFIED 

The BASED attribute was specified for a variable and 
either it was illegally specified or it is redundant. 
A redundant specification is considered conflicting if 
it is not the same as the original specification. The 
attribute specification was ignored.. | 


GENERATE STATEMENT SPECIFIES BOTH CODE AND DATA 
OPTIONS | mE 

The CODE and DATA options on the GENERATE statement 
are mutually exclusive; separate GENERATE statements 
must be used to define code and data assembler 
language statements. The second option. has been 
ignored. . | 
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REGISTER VARIABLE "xxx" IS ALREADY RESTRICTED 

The indicated register variable has been previously 
restricted within the scope of the current RESPECIFY 
Statement, . : 


REGISTER VARIABLE "xxx" MAY NOT BE RESTRICTED 

The indicated register variable refers to a register 
that has been assigned as a code or data register, or 
that is currently assigned a linkage function by the 
compiler. | 


REGISTER VARIABLE "xxx" IS ALREADY UNRESTRICTED 
The indicated register variable has not been 
previously restricted within the scope of the current 
RESPECIFY statement, . | 


ILLEGAL STRUCTURE DECLARATION -- INDETERMINATE 


DIMENSION FOR VARIABLE "xxx" IS NOT LEFTMOST DIMENSION 


The indicated variable was declared with an 
indeterminate leftmost dimension but is a component of 
a substructure which is also dimensioned. After the 
inherited dimensions of the substructure are applied 
to the variable, the indeterminate dimension is no 
longer the leftmost dimension. 
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IMPLEMENTATION RESTRICTION -- LIMIT OF 5 NESTED 
INCLUDE STATEMENTS HAS BEEN EXCEEDED 

More than 5 nested INCLUDE statements were encountered 
by the compiler. The incorrect INCLUDE statement was 
ignored, Break the included text into units that do 
not require more than 5 nescen INCLUDE statements and 
rerun the compilation. 


ILLEGAL STRUCTURE DECLARATION -- OFFSET FOR VARIABLE 
"xxx" CANNOT BE CALCULATED 

The indicated variable is immediately preceded in the 
structure by a variable at the same structure level 
which was declared with either an indeterminate length 
or an indeterminate leftmost dimension. 


ILLEGAL STRUCTURE DECLARATION -- LENGTH FOR VARIABLE 
"xxx" CANNOT BE CALCULATED 

The indicated variable was not declared with an 
explicit length and one of the immediate components of 
the substructure defined by the variable was declared 


with either an indeterminate length or an 


indeterminate leftmost dimensions. 


DIMENSIONED VARIABLE "xxx" MAY NOT HAVE INDETERMINATE 
LENGTH | 

The indicated dimensioned variable was declared with 
an indeterminate length. 


LENGTH OF VARIABLE "xxx" IS INDETERMINATE -- UNABLE 

TO ALLOCATE STORAGE 

The indicated variable was declared with either an 
indeterminate length or an indeterminate  leftmost 
dimension and is LOCAL, AUTOMATIC, or GLOBAL. . The 
compiler is unable to assign real storage to the 
variable. | 
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ILLEGAL USE OF UNDIMENSIONED VARIABLE "xxx" AS THE 
ARGUMENT OF THE DIM BUILTIN FUNCTION 

The first argument of the DIM μι function must be 
a dimensioned variable. 


INVALID DIMENSION REQUESTED FOR VARIABLE "xxx" WITH 
THE DIM BUILTIN FUNCTION 

The second argument of the DIM builtin function. 
specifies a number that is greater than the number of 
dimensions declared for the indicated variable. . 


VALUE OF LENGTH OR DIM FUNCTION FOR VARIABLE "xxx" IS 
NOT KNOWN 

The LENGTH or DIM function was used to reference the 
indicated variable before the length or dimensions of 
the variable were known.. Move the declaration for the 
Variable ahead of the LENGTH or DIM reference (the 
declaration for the variable must also appear in a 
separate DECLARE statement). 


NEXTLOOP OR EXITLOOP STATEMENT IS NOT WITHIN DO LOOP 
The  NEXTLOOP and  EXITLOOP statements must appear 
within a DO group.. 
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ILLEGAL USE OF STRUCTURE COMPONENT VARIABLE "xxx" IN 
ALLOCATE/FREE STATEMENT 

Only major structure variables may be allocated or 
freed using the ALLOCATE or FREE statements, The 
storage for the structure automatically includes 
sufficient storage for all components of the 
structure, | 


INVALID NUMBER IN REGISTER SPECIFICATION 
A number other than 0-15 was specified in a register 
specification list.. | 


DUPLICATE REGISTER SPECIFICATION 
The same register was specified more than once in a 
register specification list. | 


TOO FEW SUBSCRIPTS SPECIFIED IN REFERENCING 
DIMENSIONED VARIABLE "xxx" 

The indicated variable was declared with more 
dimensions than the number of subscripts given in the 
reference to the variable. 
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TOO MANY SUBSCRIPTS SPECIFIED IN REFERENCING 
DIMENSIONED VARIABLE “xxx" 

The indicated variable was declared with $$ fewer 
dimensions than the number of subscripts given in the 
reference to the variable., | 


VARIABLE "xxx" IS NOT KNOWN IN THE BLOCK IN WHICH IT 
IS REFERENCED | 

The indicated variable has a scope which does not 
include the block in which the variable was 
referenced. | | 


IMPLEMENTATION RESTRICTION -- UNABLE TO SORT ALL 
CROSS-REFERENCE ENTRIES 

The program contains more references to variables than 
can be sorted and printed using the compiler's current 
work areas. AS many cross-reference entries as 
possible are printed. 


IMPLEMENTATION RESTRICTION -- PROGRAM CONTAINS TOO 
MANY SYMBOLS (COMPILATION TERMINATED) 

The program contains more symbols than can be 
contained in the compiler's symbol table. Break the 
program up into smaller units of work and rerun the 
compilations. | 


IMPLEMENTATION RESTRICTION -- PROGRAM CONTAINS TOO 
MANY ERRORS (COMPILATION TERMINATED) 

The program generates more error messages than can be 
sorted and printed using the compiler's current work 
areas, Correct the errors that are flagged and rerun 
the compilation. | | | 
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